Solved

Retrieve Full FilePath from saved file using Mapped Drives

Posted on 2007-11-19
2
760 Views
Last Modified: 2013-12-18
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
Comment
Question by:Robert Treadwell
2 Comments
 
LVL 63

Expert Comment

by:SysExpert
ID: 20317077
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
 
LVL 31

Accepted Solution

by:
qwaletee earned 250 total points
ID: 20322980

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

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I thought it will be a good idea to make a post as it will help in case someone else faces these issues. I trust this gives an idea how each entry in Notes.ini can mean a lot for the Domino Server to be functioning properly. This article discusses t…
This article covers general Notes 8.5 troubleshooting information including recreating the Notes\Data folder.
This is a video describing the growing solar energy use in Utah. This is a topic that greatly interests me and so I decided to produce a video about it.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now