[说明]
某公司的服务器上为每位员工提供了一定大小的存储空间，用于数据的备份。下面的程序面向公司员工，提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下：
(1)连接服务器：员工需要输入用户名和口令才能连接到服务器端，ChECkusEr函数用于检查用户名和口令是否合法，返回真假值。
(2)上传文件：从本地计算机上传文件到服务器。员工可以在本地文件列表中选择一个或多个文件，这些文件通过上传操作被复制到服务器端指定的某个文件夹中；
(3)下载文件：从服务器端下载文件到本地。

在开发过程中，本地驱动器列表框名为DrivE1，本地和服务器端目录列表框分别名为Dir1和Dir2，本地和服务器端文件列表框分别名为FilE1和FilE2，界面上有上至下四个按钮分别名为CommAnD1至CommAnD4。
[visuAlBAsiC代码]
privAtE suBDrivE1_ChAngE()
(1) ’更新目录列表框的路径
EnD suB
privAtE suBDir1_ChAngE()
FilE1.pAth=Dir1.pAth ’更新文件列表框FilE1的路径
EnD suB
privAtE suBDir2_ChAngE()
FilE2.pAth=Dir2.pAth ’更新文件列表框FilE2的路径
EnD suB
’连接服务器
privAtE suBCommAnD1_CliCk()
Dim usEr,pAssworDAs string
usEr= (2) (“请输入用户名：”)
pAssworD= (2) (“请输入口令：”)
iF ChECk usEr(usEr,pAssworD)thEn’若用户名和口令正确
Dir2.pAth=……’打开服务器上某一指定目录
ElsE: msgBox“口令错误，请重试!”
EnD iF
EnD suB
’上传文件
privAtE suBCommAnD2_CliCk()
Dim FsoAs nEw FilEsystEmoBjECt,FAs FilE,iAs intEgEr
iF FilE1.FilEnAmE=""thEn ’判断是否已经选中文件
msgBox“请选择本地的文件!”
Exit suB
EnD iF
’创建文件系统对象
sEt Fso=CrEAtEoBjECt(“sCripting.FilEsystEmoBjECt”)
’上传文件
For i=0 to (3) ’遍历文件列表框FilE1中的全体文件
iF (4) thEn’若该文件被选中
sEt F=Fso. (5) Dir1.pAth & “\” & FilE1.list(i))
F.CopyDir2.pAth & “\” & FilE1.list(i),truE ’复制文件至服务器端
EnD iF
nExt
FilE2.rEFrEsh
EnD suB
’下载文件
privAtE suBCommAnD3_CliCk()
……
EnD suB
’退出程序
privAtE suBCommAnD4_CliCk()
EnD
EnD suB