Public Function ExistDir(ByVal dirName As String) As Boolean
ExistDir = False
If Right(dirName, 1) = "\" Then dirName = Left(dirName, Len(dirName) - 1)
ExistDir = (Dir(dirName, vbDirectory) <> "")
End Function
Private Sub Form_Load()
If ExistDir("C:\1") = True Then Me.Caption = "Yes" Else Me.Caption = "No"
End Sub
Проверка существования и доступности сетевой папки
Здравствуйте!
Я знаю такой метод проверки существования папки:
Код:
Но этот метод не работает для сетевых папок! Он в любом случае возвращает "False".
Подскажите, пожалуйста, каким способом можно проверить существование и доступность сетевой папки?
Спасибо!