Return full network address of mapped drive 2

[rockfish12]

How can I return the full network address of a mapped drive, rather than just the local path and locally issued drive letter (e.g. "//computer1/folder1" instead of, say, "m:/folder1&quot?

I've tried the GetAbsolutePathName method of the FileSystemObject, but I believe that it can only return the fully qualified local path and locally issued drive letter, (according to O'Reilly).

 

[paulbent]

Use the WNetGetConnection API function. I don't have a code sample to hand but a search should turn one up.

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk

 

[DrJavaJoe]

Try this

Dim fldr As Folder
Dim fso As New FileSystemObject
Dim drv As Drive
Set drv = fso.GetDrive(fso.GetDriveName("L:&quot)
MsgBox drv.ShareName

 

[DrJavaJoe]

Make sure you set reference to the Microsoft Scripting Runtime object.

 

[rockfish12]

Thanks, DrJavaJoe and paulbent. I give both of these suggestions a go.