TopPicLogo TopPicText

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

По материалам: 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
Назад ToTop
L.E. 17.11.2017
Рейтинг@Mail.ru