Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Проверка существования и доступности сетевой папки

296
19 февраля 2009 года
Virtuoso
331 / / 31.07.2005
Visual Basic 6.0

Здравствуйте!
Я знаю такой метод проверки существования папки:
 
Код:
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".
Подскажите, пожалуйста, каким способом можно проверить существование и доступность сетевой папки?
Спасибо!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог