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

По материалам: 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