• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 778
  • Last Modified:

Retrieve Full FilePath from saved file using Mapped Drives

I have lotusscript that is detaching OLE objects to end user selected file location.  If the user uses a mapped drive I want my script to determine the actual file location on the server.  
ie.
if "Z:\filename.xxx is returned, I need to know server and filepath.
ie.
\\server\filpath\filename.xxx
0
Robert Treadwell
Asked:
Robert Treadwell
1 Solution
 
SysExpertCommented:
You will need to capture the list of all the mapped drives possibly by using the net command  to show and output to a text file that you can read, or with WIn32 API , and then substitute as needed.

net use > list01.txt

should show the connected, mapped drives.
You will need to parse it and then substitute as needed.


I hope this helps !

0
 
qwaleteeCommented:

Function ConvertToUNC(Byval letterPath As String) As String
	If Left$(letterPath,2) = "\\" Then 'already a full UNC
		ConvertToUNC = letterPath
		Exit Function
	Elseif Left$(letterPath,1) = "\" Then 'path off current drive
		letterPath = Curdrive$ & letterPath
	REM two possibilities left, either it is a DOS path (x:\folder) or just a folder (NOTES\DATA) that needs current directory in front
	Elseif Mid$(letterPath,2,1) <> ":" Then
		letterPath = Curdir$ & "\" & letterPath
	End If
	
	Dim drive As String, tree As String, network As Variant, drives As Variant, index As Integer, limit As Integer
	drive = Ucase(Left$(letterPath,2))
	tree = Mid$(letterPath,3)
	Set network = CreateObject("WScript.Network")
	Set drives = network.EnumNetworkDrives()
	limit = drives.Count()-1 '0 index, so count is one above the Ubound
	For index = 0 To limit Step 2
		If Ucase(drives(index)) = drive Then
			ConvertToUNC = drives(index+1) & tree
			Exit Function
		End If
	Next index
	ConvertToUnc = drive & tree
End Function

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now