以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动下载设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20053)
--  作者：jinzhengbe
--  发布时间：2012/5/28 14:00:00
--  自动下载设置

ftp设置如下。

Dim ftp1 As new ftpclient
ftp1.host="118.119.143.96"
ftp1.Account = "admin"
ftp1.password = "123456"

我想点击 “下载”按钮，

将网站根目录 pic 下的所有图片都下载到 本地磁盘操 D:\\pic 下

下次下载时自动跳过已有文件，只下载新的图片文件。
--  作者：FoxMan
--  发布时间：2012/5/28 14:17:00
--  

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
--  作者：jinzhengbe
--  发布时间：2012/5/28 14:28:00
--  

但是我要的不是一个文件啊，是文件夹下面的所有文件。
--  作者：FoxMan
--  发布时间：2012/5/28 14:39:00
--  

GetFiles

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

语法：

GetFiles(directory)

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

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

For Each File As String In FileSys.GetFiles("C:\\")
    Output.Show(File)
Next
--  作者：狐狸爸爸
--  发布时间：2012/5/28 17:50:00
--  
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