Excel VBA Sprawdź, czy istnieje katalog
Public Function IsDir(s)
IsDir = CreateObject("Scripting.FileSystemObject").FolderExists(s)
End Function
Excel Hero
Public Function IsDir(s)
IsDir = CreateObject("Scripting.FileSystemObject").FolderExists(s)
End FunctionIf Dir("C:\Temp\xxx", vbDirectory) = "" Then
MsgBox "Doesn't exists"
End If