主题：自动下载设置

ftp设置如下。 Dim ftp1 As new ftpclient ftp1.host="118.119.143.96" ftp1.Account = "admin" ftp1.password = "123456" 我想点击 “下载”按钮， 将网站根目录 pic 下的所有图片都下载到 本地磁盘操 D:\pic 下 下次下载时自动跳过已有文件，只下载新的图片文件。

FileExists

判断指定的文件是否存在。

语法：

FileExists(File)

File: 要判断的文件

例如：

If FileSys.FileExists("c:\TestFiles\test.txt") = False Then

    FileSys.CopyFile("C:\TestFiles\test.txt", "C:\TestFiles2\test.txt")

End If

但是我要的不是一个文件啊，是文件夹下面的所有文件。

GetFiles

返回一个字符集合，该集合包括指定目录下的所有文件名。

语法：

GetFiles(directory)

directory: 指定的目录，获得该目录下所有的文件名。

例如列出C盘根目录下所有的文件名：

For Each File As String In FileSys.GetFiles("C:\")
    Output.Show(File)
Next

Dim ftp1 As new ftpclient
ftp1.host="128.169.143.96"
ftp1.Account = "foxuser"
ftp1.password = "136137138"
For Each fn As String As As String In ftp1.GetFileList("/data")
     if filesys.FileExists("c:\data\" & fn) = False
              ftp1.Download("/data/" & fn, "c:\data\" & fn)
     end if
Next