Придется перебирать все буквы, пока не найдете свободную.
Пример :
strUNC = "\\server\share"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive AvailableDriveLetter, strUNC
'-------------------------------------------------
Function AvailableDriveLetter
With CreateObject("Scripting.FileSystemObject")
For i = Asc("D") To Asc("Z")
If Not .DriveExists(Chr(i)) Then
AvailableDriveLetter = Chr(i) & ":"
Exit For
End If
Next
End With
End Function
Ответ написан
Комментировать
Комментировать
Оценили как «Нравится»
Войдите на сайт
Чтобы задать вопрос и получить на него квалифицированный ответ.