MyTetra Share
Делитесь знаниями!
Проверить существование файла - VBA 2
Время создания: 31.07.2019 22:55
Раздел: !Закладки - VBA - FSO
Запись: xintrea/mytetra_db_adgaver_new/master/base/1506483885fnxdwgf88v/text.html на raw.githubusercontent.com

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

'В случае, если папки нет - она будет создана.

 

Так же в этом разделе:
 
MyTetra Share v.0.58
Яндекс индекс цитирования