Как проверить, существует ли директория?

Иногда необходимо проверить, существует ли папка. Данная функция возвращает True - если папка существует, и False - если такой папки на компьютере нет. В данную функцию передается строковая переменная, содержащая полный путь к директории(папке).

Public Function FolderExists(ByVal strPathName As String) As Boolean
Dim DirectoryFound As String
Const errPathNotFound As Integer = 76

On Error GoTo 0

DirectoryFound = Dir(strPathName, vbDirectory)
 

If (Len(DirectoryFound) = 0 Or Err = errPathNotFound) Then
    FolderExists = False
Else
    FolderExists = True
End If

End Function

проверять так:

Private Sub Command1_Click()
If FolderExists("D:\Basic\Module1") = False Then
    MsgBox "Такая папка не существует"
Else
    MsgBox "Такая папка существует"
End If
End Sub


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=7615