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

[white155]

Мой вариант создать файлик, если файлик не создался, то и ресурс недоступен, есть ли ещё какие способы?

[Iska]

white155, так же, как и обычную папку:
Option Explicit

Dim strFolder
Dim objFSO


strFolder = "\\server\bla-bla-bla"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strFolder) Then
WScript.Echo "Folder [" & strFolder & "] found"
Else
WScript.Echo "Folder [" & strFolder & "] not found"
End If

Set objFSO = Nothing

WScript.Quit 0