BrowseForFolder to map a network drive? 1

[cbsarge]

I want to use the BrowseForFolder function to map a network drive. Can this be done?

Set objShellApp = CreateObject ("Shell.Application") 
Set objMyComputer = objShellApp.NameSpace (&H11&) ' My Computer constant 
Set objFolder = objShellApp.BrowseForFolder (0, "Browse to the desired folder", 0)
Set objNetwork = CreateObject("WScript.Network") 
strDriveLetter = "S:" 
objNetwork.MapNetworkDrive strDriveLetter, objFolder

This doesn't work because the value you end up with is:

"C:\Documents and Settings\user\NetHood\share on server"

not:

"\\server\share"

Any ideas?
Thanks!

[!]The AutoSavers![/!]

 

[dm4ever]

Instead of using objFolder have you tried objFolder.Self.Path ?

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[cbsarge]

That did it - thanks!

Here is the complete code for anyone else:

Set objShellApp = CreateObject ("Shell.Application") 
Set objMyComputer = objShellApp.NameSpace (&H11&)
Set objFolder = objShellApp.BrowseForFolder (0, "Browse to the desired folder", 0)
Set objNetwork = CreateObject("WScript.Network") 
strDriveLetter = "S:" 
objNetwork.MapNetworkDrive strDriveLetter, objFolder.Self.Path

[!]The AutoSavers![/!]

 

[dm4ever]

I'm glad that worked for you.

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid