Преобразование пути к сетевой папке в формат UNC

К примеру, требуется преобразовать путь вида Z:\Папка\Разное\ (где Z - буква сетевого диска) в путь вида \\server\Files\Папка\Разное

Для этого можно использовать возможности объекта FileSystemObject:

Sub ПолучениеСетевогоПутиПапки()
    ОбычныйПуть = "Z:\Папка\Разное\"
 
    With CreateObject("Scripting.FileSystemObject").getfolder(ОбычныйПуть)
        СетевойПуть = Replace(.Path, .Drive.Path, .Drive.ShareName)
    End With
 
    Debug.Print ОбычныйПуть, СетевойПуть
    ' СетевойПуть = \\server\Files\Папка\Разное
End Sub

То же самое, но в виде функции:

Function UNC(ByVal NetworkPath$) As String
    On Error Resume Next
    With CreateObject("Scripting.FileSystemObject").getfolder(NetworkPath$)
        UNC = Replace(.Path, .Drive.Path, .Drive.ShareName)
    End With
End Function
 
Sub ПримерИспользованияФункцииГТС()
    СетевойПуть = UNC("Z:\Папка\Разное")
    MsgBox СетевойПуть
End Sub

12548 просмотров

Преобразование пути к сетевой папке в формат UNC

Комментарии

Отправить комментарий

НАДСТРОЙКИ ДЛЯ EXCEL