Public Function IsFolder(ByVal sFileOrPath As String) As Boolean
  ' Funktion gibt TRUE zurück, falls es sich bei dem 
  ' übergebenen Pfad um ein Verzeichnis handelt, andernfalls FALSE
  On Error Resume Next
   IsFolder = (GetAttr(sFileOrPath) And vbDirectory)
End Function