vb 磁盘映射

1. VERSION 5.00
2. Begin VB.Form Form1 
3.    Caption         =   "Form1"
4.    ClientHeight    =   3195
5.    ClientLeft      =   60
6.    ClientTop       =   345
7.    ClientWidth     =   4680
8.    LinkTopic       =   "Form1"
9.    ScaleHeight     =   3195
10.    ScaleWidth      =   4680
11.    StartUpPosition =   3  '窗口缺省
12.    Begin VB.TextBox Text1 
13.       Height          =   360
14.       Left            =   1260
15.       TabIndex        =   1
16.       Top             =   1110
17.       Width           =   2475
18.    End
19.    Begin VB.CommandButton Command1 
20.       Caption         =   "Command1"
21.       Height          =   390
22.       Left            =   1515
23.       TabIndex        =   0
24.       Top             =   2220
25.       Width           =   1620
26.    End
27.    Begin VB.Label Label1 
28.       AutoSize        =   -1  'True
29.       BackStyle       =   0  'Transparent
30.       Caption         =   "路径："
31.       Height          =   180
32.       Left            =   525
33.       TabIndex        =   2
34.       Top             =   1125
35.       Width           =   540
36.    End
37. End
38. Attribute VB_Name = "Form1"
39. Attribute VB_GlobalNameSpace = False
40. Attribute VB_Creatable = False
41. Attribute VB_PredeclaredId = True
42. Attribute VB_Exposed = False
43. Option Explicit
45. Private Const CONNECT_UPDATE_PROFILE = 
47. Private Const RESOURCE_CONNECTED As Long = &H1
48. Private Const RESOURCE_GLOBALNET As Long = &H2
49. Private Const RESOURCETYPE_DISK As Long = &H1
50. Private Const RESOURCEDISPLAYTYPE_SHARE& = 
51. Private Const RESOURCEUSAGE_CONNECTABLE As Long = &H1
53. Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETCONNECT, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
55. Private Type NETCONNECT
56.     dwScope As Long
57.     dwType As Long
58.     dwDisplayType As Long
59.     dwUsage As Long
60.     lpLocalName As String
61.     lpRemoteName As String
62.     lpComment As String
63.     lpProvider As String
64. End Type
66. Public Function MapDrive(LocalDrive As String, RemoteDrive As String, Optional Username As String, Optional Password As String) As Boolean
67.    Dim NetR As NETCONNECT
69.    NetR.dwScope = RESOURCE_GLOBALNET
70.    NetR.dwType = RESOURCETYPE_DISK
71.    NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
72.    NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
73.    NetR.lpLocalName = Left$(LocalDrive, 1) & ":"
74.    NetR.lpRemoteName = RemoteDrive
76.    MapDrive = (WNetAddConnection2(NetR, Username, Password, CONNECT_UPDATE_PROFILE) = 0)
77. End Function
79. Private Sub Command1_Click()
80.     If MapDrive("I:", Text1.Text) Then
81.         MsgBox "映射网络驱动器成功"
82.     Else
83.         MsgBox "映射网络驱动器失败"
84.     End If
85. End Sub