' Prüfen, ob ein Verzeichnis existiert
Public Function FolderExists(ByVal sPath As String) As Boolean
 
  FolderExists = (FileSystem.Dir(sPath, vbDirectory + vbHidden) <> "")
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de