我找到一个程序,给你参考一下,它是映射和断开网络驱动器:Option ExplicitPrivate 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 TypeConst NO_ERROR = 0 Const CONNECT_UPDATE_PROFILE = &H1 Const RESOURCETYPE_DISK = &H1 Const RESOURCETYPE_PRINT = &H2 Const RESOURCETYPE_ANY = &H0 Const RESOURCE_CONNECTED = &H1 Const RESOURCE_REMEMBERED = &H3 Const RESOURCE_GLOBALNET = &H2 Const RESOURCEDISPLAYTYPE_DOMAIN = &H1 Const RESOURCEDISPLAYTYPE_GENERIC = &H0 Const RESOURCEDISPLAYTYPE_SERVER = &H2 Const RESOURCEDISPLAYTYPE_SHARE = &H3 Const RESOURCEUSAGE_CONNECTABLE = &H1 Const RESOURCEUSAGE_CONTAINER = &H2Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias _ "WNetAddConnection2A" _ (lpNetResource As NETRESOURCE, _ ByVal lpPassword As String, _ ByVal lpUserName As String, _ ByVal dwFlags As Long) As LongPrivate Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias _ "WNetCancelConnection2A" _ (ByVal lpName As String, _ ByVal dwFlags As Long, _ ByVal fForce As Long) As Long Private Sub cmdConnect_Click() Dim NetR As NETRESOURCE Dim ErrInfo As Long
If ErrInfo = NO_ERROR Then MsgBox "网络驱动器映射成功!", vbInformation, "映射" Else MsgBox "ERROR: " & Str(ErrInfo) & " - 网络驱动器映射失败!", _ vbExclamation, "映射" End IfEnd SubPrivate Sub cmdDisconnect_Click() Dim ErrInfo As Long Dim strLocalName As String
If ErrInfo = NO_ERROR Then MsgBox "成功断开驱动器映射!", vbInformation, "断开" Else MsgBox "ERROR: " & Str(ErrInfo) & " - 驱动器断开失败!", _ vbExclamation, "断开" End IfEnd SubPrivate Sub Command1_Click() End End Sub
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 TypeConst NO_ERROR = 0
Const CONNECT_UPDATE_PROFILE = &H1
Const RESOURCETYPE_DISK = &H1
Const RESOURCETYPE_PRINT = &H2
Const RESOURCETYPE_ANY = &H0
Const RESOURCE_CONNECTED = &H1
Const RESOURCE_REMEMBERED = &H3
Const RESOURCE_GLOBALNET = &H2
Const RESOURCEDISPLAYTYPE_DOMAIN = &H1
Const RESOURCEDISPLAYTYPE_GENERIC = &H0
Const RESOURCEDISPLAYTYPE_SERVER = &H2
Const RESOURCEDISPLAYTYPE_SHARE = &H3
Const RESOURCEUSAGE_CONNECTABLE = &H1
Const RESOURCEUSAGE_CONTAINER = &H2Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias _
"WNetAddConnection2A" _
(lpNetResource As NETRESOURCE, _
ByVal lpPassword As String, _
ByVal lpUserName As String, _
ByVal dwFlags As Long) As LongPrivate Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias _
"WNetCancelConnection2A" _
(ByVal lpName As String, _
ByVal dwFlags As Long, _
ByVal fForce As Long) As Long
Private Sub cmdConnect_Click() Dim NetR As NETRESOURCE
Dim ErrInfo As Long
NetR.dwScope = RESOURCE_GLOBALNET
NetR.dwType = RESOURCETYPE_DISK
NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
NetR.lpLocalName = Text1(0).Text
NetR.lpRemoteName = Text1(1).Text
ErrInfo = WNetAddConnection2(NetR, Text1(3).Text, Text1(2).Text, CONNECT_UPDATE_PROFILE)
If ErrInfo = NO_ERROR Then
MsgBox "网络驱动器映射成功!", vbInformation, "映射"
Else
MsgBox "ERROR: " & Str(ErrInfo) & " - 网络驱动器映射失败!", _
vbExclamation, "映射"
End IfEnd SubPrivate Sub cmdDisconnect_Click() Dim ErrInfo As Long
Dim strLocalName As String
strLocalName = Text1(4).Text
ErrInfo = WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, False)
If ErrInfo = NO_ERROR Then
MsgBox "成功断开驱动器映射!", vbInformation, "断开"
Else
MsgBox "ERROR: " & Str(ErrInfo) & " - 驱动器断开失败!", _
vbExclamation, "断开"
End IfEnd SubPrivate Sub Command1_Click()
End
End Sub