Excel VBA проверяет, существует ли каталог
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