| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- ftp文件一键同步 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116419) |
| -- 作者：yifan3429 -- 发布时间：2018/3/24 12:05:00 -- ftp文件一键同步 ftp文件同步 图片列是 ftp文件 想设计一个一键同步功能 将产品表 图片列 的图片从 ftp 上全部同步到本地来
|
| -- 作者：有点蓝 -- 发布时间：2018/3/24 12:18:00 -- 循环所有行，逐个下载：http://www.foxtable.com/help/scr/1410.htm |
| -- 作者：yifan3429 -- 发布时间：2018/3/24 14:24:00 -- Dim ftp1 As new ftpclient ftp1.host="196.128.143.28" ftp1.Account = "foxuser" ftp1.password = "138238110" If ftp1.Download("\\photo\\Desert.jpg","c:\\data\\Desert.jpg") = True Then Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If 将产品表 图片列 的图片从 ftp 上全部同步到本地默认的位置？
|
| -- 作者：有点蓝 -- 发布时间：2018/3/24 15:18:00 -- Dim ftp As FTPClient = DataTables("凭证明细").DataCols("日期").FTPClient For Each dr As DataRow In DataTables("凭证明细").DataRows Output.Show(ProjectPath & "Attachments\\" & dr("图片")) ftp.Download(dr("图片"),ProjectPath & "Attachments\\" & dr("图片")) Next |
| -- 作者：yifan3429 -- 发布时间：2018/3/25 15:13:00 -- 产品表 图片列 的文件 从 ftp 上全部同步到本地默认（RemoteFiles）的位置 第一步全部删除，告诉客户正在删除 第二部再次全部下载 告诉客户正在下载 时间预计还要多久 代码怎么写呢 也可以作对比 以ftp为准 存在的跳过 没有的删除 本地没有的继续下载
[此贴子已经被作者于2018/3/25 15:16:50编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/3/25 15:43:00 -- 1、没有必要一键同步，需要的时候，再点击打开查看图片，这样更符合实际需要；
2、删除文件参考
http://www.foxtable.com/webhelp/scr/0331.htm
3、下载文件参考4楼，无法做到预计还需要多少时间的，如果要要做，那就计算有多少个文件，显示已经下载了多少个那样。 |