Converting Hyperlinks from Network Drive to UNC Path (1 Viewer)

 if left([path],1) <> "\" then msgbox "use UNC path on drive"

Function GetUNC(strMappedDrive As String) As String

    Dim objFso As FileSystemObject
    Set objFso = New FileSystemObject
    Dim strDrive As String
    Dim strShare As String

    'Separated the mapped letter from
    'any following sub-folders
    strDrive = objFso.GetDriveName(strMappedDrive)

    'find the UNC share name from the mapped letter
    strShare = objFso.Drives(strDrive).ShareName

    'The Replace function allows for sub-folders
    'of the mapped drive
    GetUNC = Replace(strMappedDrive, strDrive, strShare)

    Set objFso = Nothing    'Destroy the object

End Function

Function GETNETWORKPATH(ByVal DriveName As String) As String
    
    Dim objNtWork  As Object
    Dim objDrives  As Object
    Dim lngLoop    As Long
    
    
    Set objNtWork = CreateObject("WScript.Network")
    Set objDrives = objNtWork.enumnetworkdrives
    
    For lngLoop = 0 To objDrives.Count - 1 Step 2
        If UCase(objDrives.Item(lngLoop)) = UCase(DriveName) Then
            GETNETWORKPATH = objDrives.Item(lngLoop + 1)
            Exit For
        End If
    Next

End Function

Private Sub Form_AfterUpdate()

    Dim sDrive As String
    Dim sUNC As String
    Dim Result As String
   
    sDrive = Left([Hyperlink], 2)
   
    sUNC = GETNETWORKPATH(sDrive)
    
    If Left([Hyperlink], 1) <> "\" Then
        
        Result = Replace(Me.Hyperlink, sDrive, sUNC)
        
        Hyperlink = Result
        
    End If

End Sub