Find drive letter of a mapped drive

[philR]

Hi,

I know there is a way to do this, can't find it in the forums. Basically, everywhere at work is mapped to the same network drive, but it isn't dictated which letter they have used. So, for example, my V:\ drive may be the same as someone else's S:\ drive. I need code to check all mapped drives to get the name and letter used.

Many thanks

 

[RoryA]

Here's a function that will get the mapped drive for a given UNC path:

Function GetDriveLetter(ByVal sUNC_Path As String) As String
    Dim intDrive As Integer, colDrives As Variant
    sUNC_Path = VBA.LCase$(sUNC_Path)
    Set colDrives = CreateObject("WScript.Network").EnumNetworkDrives()
    On Error Resume Next
    For intDrive = 1 To colDrives.Count Step 2
        If VBA.LCase$(colDrives.item(intDrive)) = sUNC_Path Then
            GetDriveLetter = colDrives.item(intDrive - 1)
            Exit For
        End If
    Next
End Function