Retrive UNC Path

[Kocheace]

I have a feature in an application that I created that is triggered when the user clicks in a text box. Once it has the focus a dialog box appears in which they go to the location of the file that they want. Once the file is selected a link is created for the file.

The problem is that different computers have different letters representing the network drive where the images are. So if everyones drive letters are different and they create a link to a file others can't access it.

Does anyone know of a way to retrieve the UNCPath of a networked drive? I've copied code from microsoft but it doesn't work. It uses the MPR.dll file but somethings up with it. Any suggestions would be greatly appreciated.

P.S. Sorry for the long thread

IT Professional

 

[NeilRP]

The following should work. You need to set a reference to 'Windows Script Host Object Model'

Function PathTransToUNC(sPath As String) As String
Dim oWSHNet As Object, drv
Dim sDriveLetter As String, sUNC As String
Dim bNextOne As Boolean

bNextOne = False
sDriveLetter = Left(sPath, 2)

If sDriveLetter = "\\" Then
' Already a UNC Path
PathTransToUNC = sPath
Else
' Translate
Set oWSHNet = CreateObject("WScript.Network&quot

For Each drv In oWSHNet.EnumNetworkDrives
If bNextOne Then
sUNC = drv
bNextOne = False
End If
If Left(drv, 2) = sDriveLetter Then
bNextOne = True
End If
Next drv

Set oWSHNet = Nothing

PathTransToUNC = sUNC & Mid(sPath, 3)
End If
End Function

To call.. ?PathTransToUNC("M:&quot