get full path, even with mapped drives

hi,

a collegue of mine solved the problem with a much shorter procedure, no apis required.

'2015-03-26 / A.Salvá /
Public Function Path2UNC(sFullName As String) As String
' Converts the mapped drive path in sFullName to a UNC path if one exists.
' If not, returns a null string

   Dim strDrive As String
   Dim i        As Long

   strDrive = UCase(Left(sFullName, 2))

   With CreateObject("WScript.Network").EnumNetworkDrives
       For i = 0 To .count - 1 Step 2
           If .item(i) = strDrive Then
               Path2UNC = .item(i + 1) & Mid(sFullName, 3)
               Exit For
           End If
       Next
   End With

End Function