[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