Map network drive using excel macro

[BenjaminHusted]

My corporate log-in script fails to map a key drive for me. The help desk is too back logged to change it, how can I use and excel macro to map it for me.

Thanks

Benjamin

 

[BrianB]

Try this.

'================================================================
'- MAP NETWORK DRIVE
'- if necessary map the drive by hand to see the correct name
'- it is not always the same as shown in Explorer
'- Brian Baulsom October 2007
'================================================================
'- does the job
Private Sub MapDrive()
    Dim MyDriveName As String
    MyDriveName = "\\Brian-dell\MY_FILES (F)"
    '------------------------------------------------------------
    '- map drive
    On Error Resume Next ' DRIVE MAY BE MAPPED ALREADY
    Set MyDrive = CreateObject("WScript.Network")
    MyDrive.MapNetworkDrive "F:", MyDriveName
    DoEvents
    '--------------------------------------------------------------
    '- error check
    If Err.Number <> 0 Then
        MsgBox (" Drive already mapped or not available ")
    Else
        MsgBox ("Mapped OK")
    End If
End Sub
'-------------------------------------------------------------------

 

[BenjaminHusted]

You are good my friend.

I just needed to add "Dim MyDrive As Object" and then dropped the letter reference from your loading of the "MyDriveName" variable.

Works like a charm.

Thank you for your help.



Public Sub MapDrive_Benjamin()


Dim MyDrive As Object
Dim MyDriveName As String

MyDriveName = "\\scns001a\ActuarialData"
'------------------------------------------------------------
'- map drive
On Error Resume Next ' DRIVE MAY BE MAPPED ALREADY
Set MyDrive = CreateObject("WScript.Network")
MyDrive.MapNetworkDrive "K:", MyDriveName
DoEvents
'--------------------------------------------------------------
'- error check
If Err.Number <> 0 Then
MsgBox (" Drive already mapped or not available ")
Else
MsgBox ("Mapped OK")
End If

End Sub

 

[Felix Atagong]

Just what I needed. Thanks. This message board is awesome.

 

[wut]

x2

Just what I needed. Thanks. This message board is awesome.