Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
VBA: проверка существования папки
 
Добрый день!  
 
С помощью MkDir создаю необходимую папку. Необходима проверка существования данной папки.  
 
Спасибо.
 
Function PathExists(pname) As Boolean  
' Возвращает ИСТИНА, если путь существует  
   Dim x As String  
   On Error Resume Next  
   x = GetAttr(pname) And 0  
   PathExists = (Err = 0)  
End Function  
Или:  
Function PathExists3(path) As Boolean  
' Возвращает ИСТИНА, если путь существует  
   Dim FSO As Object, FolderObj As Object  
   Set FSO = CreateObject("Scripting.FileSystemObject")  
   On Error Resume Next  
   Set FolderObj = FSO.getfolder(path)  
   PathExists3 = (Err = 0)  
End Function  
 
Но я делаю по другому, без проверок:  
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long  
 
Public Sub www()  
    Dim s$, a, st$  
   On Error GoTo www_Error  
    st = "k:"  
    s = ThisWorkbook.path: s = st & Mid(s, 3) & "\"  
    MakeSureDirectoryPathExists s  
    ThisWorkbook.SaveCopyAs (s & ThisWorkbook.Name)  
   Exit Sub  
www_Error:  
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure www"  
End Sub  
В случае, если папки нет - она будет создана.
Я сам - дурнее всякого примера! ...
 
: )  
 
Function FolderExists(ByRef path As String) As Boolean  
   On Error Resume Next  
   FolderExists = GetAttr(path)  
End Function
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


https://github.com/nervgh
 
А попроще?  
 
Sub tt()  
MsgBox CreateObject("Scripting.FileSystemObject").FolderExists("C:\Temp\")  
End Sub
Страницы: 1
Читают тему (гостей: 2)
Наверх