使用方法：

建立连线

 Function AddConnection(ByVal RemoteLocation As String, _

             ByVal LocalDriver As String, _

             ByVal Passwd As String, _

             ByVal UserName As String) As Boolean

  RemoteLocation : 为网络磁盘原始来源，格式为

           \\RemoteComputer\ShareDirectory

  LocalDriver   : 对应本机的磁盘代号，如： "H:"

  Passwd     : 存取网络磁盘的Password,传Null表示不用密码

  UserName    : 存取网络磁盘的使用者代号

  成功时传回True，否则为False

例：

  Call AddConnection("\\Shih\cmias", "x:", vbNullString, "cww")

取消连线

Function CancelConnection(ByVal LocalDriver As String, _

              ByVal ForceClose As Boolean) As Boolean

  LocalDriver  : 对应本机的磁盘代号，如： "H:"

  ForceClose  : True表示强迫结束连线，而不管有没有程式正与之连线

  成功时传回True，否则为False

例：

 Call CancelConnection("x:", True)

以下在.bas

Option Explicit

Type NETRESOURCE

    dwScope As Long

    dwType As Long

    dwDisplayType As Long

    dwUsage As Long

    lpLocalName As String

    lpRemoteName As String

    lpComment As String

    lpProvider As String

End Type

Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long

Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long

Declare Function WNetGetLastError Lib "mpr.dll" Alias "WNetGetLastErrorA" (lpError As Long, ByVal lpErrorBuf As String, ByVal nErrorBufSize As Long, ByVal lpNameBuf As String, ByVal nNameBufSize As Long) As Long

Public Const RESOURCE_PUBLICNET = &H2

Public Const RESOURCETYPE_ANY = &H0

Public Const RESOURCEDISPLAYTYPE_GENERIC = &H0

Public Const RESOURCEUSAGE_CONNECTABLE = &H1

Public Const CONNECT_UPDATE_PROFILE = &H1

Public Function AddConnection(ByVal RemoteLocation As String, ByVal LocalDriver As String, _

               ByVal Passwd As String, ByVal UserName As String) As Boolean

Dim ne As NETRESOURCE, i As Long

Dim errstr As String, errpriv As String, erno As Long

ne.dwDisplayType = RESOURCEDISPLAYTYPE_GENERIC

ne.dwScope = RESOURCE_PUBLICNET

ne.dwType = RESOURCETYPE_ANY

ne.dwUsage = RESOURCEUSAGE_CONNECTABLE

ne.lpComment = vbNullString

ne.lpLocalName = LocalDriver

ne.lpProvider = vbNullString

ne.lpRemoteName = RemoteLocation

i = WNetAddConnection2(ne, Passwd, UserName, 0)

If i = 0 Then

  AddConnection = True

Else

 AddConnection = False

 errstr = String(256, 0)

 errpriv = String(256, 0)

 i = WNetGetLastError(erno, errstr, 256, errpriv, 256)

 errstr = Left(errstr, InStr(1, errstr, Chr(0)) - 1)

 MsgBox errstr, vbCritical

End If

End Function

Public Function CancelConnection(ByVal LocalDriver As String, ByVal ForceClose As Boolean) As Boolean

Dim i As Long

Dim errstr As String, errpriv As String, erno As Long

i = WNetCancelConnection2(LocalDriver, 0, IIf(ForceClose, 1, 0))

If i = 0 Then

  CancelConnection = True

Else

 CancelConnection = False

 errstr = String(256, 0)

 errpriv = String(256, 0)

 i = WNetGetLastError(erno, errstr, 256, errpriv, 256)

 errstr = Left(errstr, InStr(1, errstr, Chr(0)) - 1)

 MsgBox errstr, vbCritical

End If

End Function