123.自动映射网络驱动器

'###############################################################

'函数作用：自动映射网络驱动器

'###############################################################

Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long

Function AddConnection(MyShareName As String, MyPWD As String, UseLetter As String) As Integer

    On Local Error GoTo AddConnection1_Err

    AddConnection = WNetAddConnection(MyShareName, MyPWD, UseLetter) AddConnection_End:

    Exit Function

AddConnection1_Err:

    AddConnection = Err

    MsgBox Error$

    Resume AddConnection_End

End Function

'应用实例

Public Function L_Connection()

    X = AddConnection("\\pyknitpc6\LINK400", "A", "Z:")

End Function