MyTetra Share
Делитесь знаниями!
Проверить существование файла - VBA 2
27.09.2017
06:44
Раздел: VBA

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.52
Яндекс индекс цитирования