How to get Network Share Name
Posted on January 5, 2009
1 2 3 4 5 6 7 8 9 10 | 'System & API - How to get Network Share Name Private Function SharePath(sPath As String) As String 'Set Reference to Microsoft Scripting Runtime Dim oFS As FileSystemObject, oFolder As Folder Set oFS = New FileSystemObject Set oFolder = oFS.GetFolder(sPath) SharePath = oFolder.Drive.ShareName Set oFolder = Nothing Set oFS = Nothing End Function |