Declare Function PathIsDirectory Lib "Shlwapi" _ Alias "PathIsDirectoryW" _ (ByVal lpszPath As Long) As Boolean
Функция возвращает True, если существует путь к папке. В противном случае возвращается False
Dim strSource As String
strSource = "c:\windows"
' Проверяем, существует ли папка с указанным путем
Print PathIsDirectory(StrPtr(strSource))