FTPClient
FTPClient类提供了一套完整的方法，用于管理FTP服务器上的文件和目录。
属性
- Host
返回或设置服务器地址，可以是域名或IP地址。
- Account
返回或设置登录用户名
- Password
返回或设置登录密码。
- TimeOut
整数型，用于设置尝试操作的毫秒数，默认为5000，也就是5秒。
方法
Download
从FTP上下载文件，语法：
Download(sourceFileName, destinationFileName, ShowUI)
sourceFileName：要下载的文件，含路经
destinationFileName：保存下载文件的文件名和路径。
ShowUI：可选参数，逻辑型，是否显示下载进度。
Upload
用于将文件上传到FTP，语法：
Upload(sourceFileName, destinationFileName, ShowUI)
sourceFileName：要上传的文件
destinationFileName：目标文件
ShowUI：可选参数，逻辑型，是否显示上传进度。
Delete
用于删除FTP上的文件，语法：
Delete(FileName)
FileName：要删除的文件
GetFileList
用于返回FTP服务器指定目录下的全部文件名，以字符串集合的形式返回，语法：
GetFileList(Path)
Path：可选参数，用于指定目录，如果身略，则返回根目录下的全部文件名。
GetDirectoryList
用于返回FTP服务器指定目录下的全部子目录，以字符串集合的形式返回，语法：
GetDirectoryList(Path)
Path：可选参数，用于指定目录，如果身略，则返回根目录下的全部子目录名。
FileExists
判断指定的文件是否存在，语法：
FileExists(FileName)
FileName：要判断的文件名，含路经。
DirectoryExists
判断指定的目录是否存在，语法：
DirectoryExists(Path)
Path：要判断的目录。
Rename
用于重命名文件，语法：
Rename(currentFilename, newFilename)
currentFilename：要重命名的文件，含路经。
newFilename：新的名称，不含路经。
MakeDir
创建目录，语法：
MakeDir(Path)
Path：要创建的目录。
DeleteDir
删除目录，语法：
DeleteDir(Path)
Path：要删除的目录
OpenManager
用于打开FTP管理器，语法：
OpenManager(Path)
Path：可选参数，用于指定初始目录。
SelectFile
打开选择文件对话框，语法：
SelectFile(Path)
Path：可选参数，用于指定初始目录。
示例：
请使用正确的ip地址、帐号、域名测试下面的代码，且保证网络畅通，否则相当长的时间内，程序会失去响应。
Dim ftp1 As new ftpclient
ftp1.host="128.169.143.96"
ftp1.Account = "foxuser"
ftp1.password = "136137138"
If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
ftp1.MakeDir("/data") '则创建Data目录
End If
ftp1.upload("c:\data\isam2.zip","/data/isam2.zip",true)
加好友 
发短信
Post By：2009/6/30 14:35:00 [显示全部帖子]
