Dateiverzeichnis auf Existenz prüfen
Zur Navigation springen
Zur Suche springen
Function FolderDa(Folder As String) As Boolean
On Error Resume Next
FolderDa = Dir(Folder, vbDirectory) <> ""
End Function
Function FolderDa(Folder As String) As Boolean
On Error Resume Next
FolderDa = Dir(Folder, vbDirectory) <> ""
End Function