MyTetra Share
Делитесь знаниями!
robot drawing on Clipart for Biz
Проверка на наличие папки (сетевой) по пути
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 12 Папки и Файлы

Проверка на наличие папки (сетевой) по пути

По материалам: https://msdn.microsoft.com/en-us/library/5xc78d8d(v=vs.84).aspx

Dim s As String

s = "D:\Temp"

If CreateObject("Scripting.FileSystemObject").FolderExists(s) = False Then

MsgBox "Нет такой паки!" & vbCrLf & s, vbCritical

' ....

Exit Sub

End If




Public Function IsFolderExist(sFldPath$) As Boolean

'Проверка на сушествование (сетевой) папки - если есть - вернёт True

'--------------------------------------------------------------------------

Dim fso As Object, msg$

On Error GoTo IsFolderExist_Err

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(sFldPath)) Then

IsFolderExist = True

End If


IsFolderExist_Bye:

Set fso = Nothing

Exit Function


IsFolderExist_Err:

'MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"в функции: FolderExist", vbCritical, "Error in module [Название вашего модуля]"

Resume IsFolderExist_Bye

End Function



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