Login to network drive help

[Apuokas]

Hi all,

I'm trying to create a macro, that would map a network drive to a letter, login, and post some files there. I have been able to accomplish all but the login part, which is a bit of a pain... Below is what I've got so far:

Sub MapDrive()
' =================== MAP DRIVE Z ===================
Dim MyDrive As Object
Dim MyDriveName As String
MyDriveName = \\blahblah\folder\

'------------------------------------------------------------
'- map drive
On Error Resume Next ' DRIVE MAY BE MAPPED ALREADY
Set MyDrive = CreateObject("WScript.Network")
MyDrive.MapNetworkDrive "Z:", MyDriveName
DoEvents

Shell "explorer.exe " & "Z:\", vbNormalFocus

End Sub


Basically, I need some code after the "Shell explorer..." to fill in login info into a message box that pops up and 'click' ok, close the folder, after which another macro continues to post files into the drive.

I've been searching for a solution for a while, but I can only locate some gmail examples... Any ideas?

 

[jimrward]

http://www.mrexcel.com/forum/excel-...t-server-using-visual-basic-applications.html

From a previous post found by using google

 

[Apuokas]

Thanks, I guess I was searching the wrong keywords the whole time.

Anyways, I've tried the code, but I keep getting a "false" as the result. I found another post where someone had the same problem, but no resolution. Have ideas what could cause this?

 

[Apuokas]

Actually just found a much simpler solution!

Dim objNetwork
Dim strDriveLetter
Dim strRemotePath
Dim strUserName
Dim strPassWord
strDriveLetter = "G:"
strRemotePath = "\\ServerName\FolderName"
Set objNetwork = CreateObject("WScript.Network")
strUserName = "Username"
strPassWord = "Password"
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, , strUserName, strPassWord
MsgBox "The Script Has Executed Successfully!"


Thanks for leading me on the right track