如何把局域网的某机器听一个共享文件夹设为本地的磁盘映射？

Question

设定/取消 网络磁盘
来源:cww使用方法：建立连线 
  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 ExplicitType 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 LongPublic 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 Longne.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 = RemoteLocationi = 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 FunctionPublic 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 Longi = 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 IfEnd Function