• Home
 · 
• Windows System Services
 · 
• Map a network drive

Map a network drive

Map a network drive

Rate Map a network drive

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim strPassword As String
Dim strNetworkPathName As String

    strLocalDriveLetter = "K:"                  'Local drive letter to be mapped
    strPassword = ""                            'specify network password if required
    strNetworkPathName = "\\NETWORKPATH\VOL1"   'path to network drive
    
    If WNetAddConnection(strNetworkPathName, strPassword, strLocalDriveLetter) > 0 Then
        MsgBox ("An Error occurred mapping the drive")
    Else
        MsgBox ("Drive successfully mapped!")
    End If