Dateiverzeichnis auf Existenz prüfen

Zur Navigation springen Zur Suche springen
Dieses Unterprogramm überprüft, ob ein Ordner (Folder) vorhanden ist. Der Name dieses Ordners wird als Textparameter übergeben.
Function FolderDa(Folder As String) As Boolean
  On Error Resume Next
  FolderDa = Dir(Folder, vbDirectory) <> ""
End Function