Solved

Retrieve Full FilePath from saved file using Mapped Drives

Posted on 2007-11-19
2
758 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

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

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…
  In today’s Arena we can’t imagine our lives without Internet as we are highly used to of it. If we consider our life style just for only 2 min we found that face to face communication is swapped by e-communication.  Every Where from Works place to…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

708 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

16 Experts available now in Live!

Get 1:1 Help Now