如何在VBA中获取本地驱动器的共享名？

我正在尝试获取本地驱动器的共享名。使用了下面的代码，但看起来代码并没有产生这种效果。仅网络驱动器的共享名

请参阅下面的代码

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