TopPicLogo TopPicText

Проверка на наличие папки по пути

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

Public Function ReportFolderStatus(fldr) As Boolean
'Проверка на сушествование (сетевой) папки - если есть - вернёт True
'--------------------------------------------------------------------------
Dim fso As Object, msg$
On Error GoTo ReportFolderStatus_Err
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FolderExists(fldr)) Then
      ReportFolderStatus = True
   End If

ReportFolderStatus_Bye:
    Exit Function

ReportFolderStatus_Err:
    'MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "в процедуре: ReportFolderStatus", vbCritical, "Error in module mod00_Test"
    
    Resume ReportFolderStatus_Bye
End Function
Назад ToTop
L.E. 24.03.2017
Рейтинг@Mail.ru