• Home
 · 
• Windows System Services
 · 
• Map Network Drive

Map Network Drive

Map Network Drive

Rate Map Network Drive

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

                    ByVal DrivePath As String) As String

                    
   Dim WshNetwork As Object
   Dim Drive_Exists As Boolean
   
   On Error GoTo ErrHandler
   
   Set WshNetwork = CreateObject("Wscript.Network")
   
   Call WshNetwork.MapNetworkDrive(DriveLetter, DrivePath)
   
   Set WshNetwork = Nothing

    Exit Function
    
ErrHandler:
    Set fso = Nothing
    Set WshNetwork = Nothing

    MsgBox " Error Description: " & Err.Description
    
End Function