| |
Как проверить, существует ли директория? |
|
| |
Иногда необходимо проверить, существует ли
папка. Данная функция возвращает 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
|
|
| |
|
|
|
|