[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Как проверить, существует ли директория? - Visual Basic? (Как проверить, существует ли директория? - Visual Basic?)
Как проверить, существует ли директория? - Visual Basic?
ilimДата: Вторник, 15.11.2011, 23:12 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Как проверить, существует ли директория? - Visual Basic?
===================================================
Иногда необходимо проверить, существует ли папка. Данная функция возвращает 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()
'MsgBox FolderExists("D:\Basic")
If FolderExists("D:\Basic\Module1") = False Then
MsgBox "Такая папка не существует"
Else
MsgBox "Такая папка существует"
End If
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Как проверить, существует ли директория? - Visual Basic? (Как проверить, существует ли директория? - Visual Basic?)
Страница 1 из 11
Поиск: