连接外部PC的硬盘（共享文件）

• 概述

• 使用VBA程序

• VBA程序说明

概述

map_drive.vba展示说明如何将外部PC的硬件（共享文件）连接到E5071C的样本程序（VBA程序）。这个VBA程序由以下模块组成：

使用VBA程序

下载map_drive.vba并按下宏运行键。出现下面的宏程序。

共享文件夹连接宏程序

连接（映射）

输入共享文件夹的驱动器名(1)、共享文件夹的共享名(2)、用户名(3)、口令(4)，然后点击Map（映射）(5）。

• 咨询您的网络管理员，并以与Windows XP"  PC操作系统中的输入相同的方式输入设置。如果您输入不正确设置，则可能会出现错误，程序也可能中断。

断开

1. 输入共享文件夹的驱动器名(1)，然后点击断开(6)。

2.   点击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