连接外部PC的硬盘（共享文件）
概述
map_drive.vba展示说明如何将外部PC的硬件（共享文件）连接到E5071C的样本程序（VBA程序）。这个VBA程序由以下模块组成：
|
对象名 |
模块类型 |
说明 |
|
frmMapDrive |
用户表单 |
连接或断开硬盘 |
|
模块1 |
标准模块 |
显示frmMapDrive |
使用VBA程序
下载map_drive.vba并按下宏运行键。出现下面的宏程序。
连接（映射）
输入共享文件夹的驱动器名(1)、共享文件夹的共享名(2)、用户名(3)、口令(4)，然后点击Map（映射）(5）。
咨询您的网络管理员，并以与Windows XP" PC操作系统中的输入相同的方式输入设置。如果您输入不正确设置，则可能会出现错误，程序也可能中断。
断开
输入共享文件夹的驱动器名(1)，然后点击断开(6)。
点击Exit（退出）(7)使从程序中退出。
VBA程序说明
下面对程序（对象名：frmMapDrive）进行详细说明：
Sub CommandButton1_Click
当用户点击Map（映射）按钮时，这个程序即被调用。它检查驱动器名是否由利用IsDriveNameInUse程序被使用。如果驱动器名未被使用或相反显示表明驱动器名已被使用的消息，则程序将使用MapDrive程序连接共享文件夹。
Sub CommandButton2_Click
当用户点击断开按钮时，这个程序即被调用。这个程序用DisconnectDrive程序断开共享文件夹。
Function IsDriveNameInUse
这个程序检查txtDrive.Text（由1指定的驱动器名）是否被使用。
Sub MapDrive
这个程序使用下述参数将共享文件夹作为txtDrive.Text（由1指定的驱动器名）连接：txtShare.Text（由2指定的共享名称）、txtUser.Text（由3指定的用户名）和txtPasswd.Text（由4指定的口令）。
Sub DisconnectDrive
这个程序断开txtDrive.Text（由1指定的驱动器名）驱动器。
Sub CommandButton3_Click
当用户点击Exit（退出）按钮时，这个程序即被调用。这个程序使程序终止。
连接外部PC的硬盘（对象名：frmMapDrive）
Private Sub CommandButton1_Click()
If Not IsDriveNameInUse Then
Call MapDrive
Else
MsgBox "Drive """ & txtDrive.Text & """ is Already used", vb Critical
End If
End Sub
Private Sub CommandButton2_Click()
Call DisconnectDrive
End Sub
Private Function IsDriveNameInUse() As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
IsDriveNameInUse = fso.DriveExists(txtDrive.Text)
End Function
Private Sub MapDrive()
Set network = CreateObject("wscript.network")
Call network.MapNetworkDrive(txtDrive.Text, txtShare.Text, vbFal se, txtUser. Text, txtPasswd.Text)
End Sub
Private Sub DisconnectDrive()
Set network = CreateObject("wscript.network")
network.RemoveNetworkDrive txtDrive.Text
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub