你是局域网还是广域网?

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)