Я пытаюсь получить ShareName локального диска.Использовал приведенный ниже код, но похоже, что код этого не производит.только имя общего ресурса сетевых дисков
см. код ниже
Sub VBA_Get_SharedName()
Dim fs, fol, netpath
For i = 1 To 26
B$ = Chr(64 + i) + ":\"
Set fs = CreateObject("Scripting.filesystemobject")
Set fol = fs.getfolder(B$)
netpath = fol.drive.ShareName
Next i
End Sub