Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Retrieve UNC Path to mapped drives
- Thread starter wsnider
- Start date
- Thread starter
- #2
Please allow me to answer my own question. You can set a reference to the old COM FileSystemObject and use as follows.
Function GetUNCPath(ByVal strDrvLetter As String) As String
Dim fso As New Scripting.FileSystemObject()
Dim drv As Scripting.Drive = fso.GetDrive(strDrvLetter ":"
If drv.DriveType = Scripting.DriveTypeConst.Remote Then
Return drv.ShareName
Else
Return drv.Path
End If
End Function
Function GetUNCPath(ByVal strDrvLetter As String) As String
Dim fso As New Scripting.FileSystemObject()
Dim drv As Scripting.Drive = fso.GetDrive(strDrvLetter ":"
If drv.DriveType = Scripting.DriveTypeConst.Remote Then
Return drv.ShareName
Else
Return drv.Path
End If
End Function
- Status
Similar threads
- Locked
- Question
