以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助批量下载远程附件代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104446) |
||||
-- 作者:天若千颖 -- 发布时间:2017/7/29 12:30:00 -- 求助批量下载远程附件代码
如图,请教版主。
“文件地址“列是存放远程文件,放在FTP上,点击该列可直接下载文件。代码已有。
但是,考虑到文件个数太多,客户需要可以批量选中列表中的文件,然后点击“批量下载”按钮,可以打包,或者一次性下载表中“批量下载”被勾选的资料。
窗口中“批量下载”的代码如何写?
|
||||
-- 作者:天若千颖 -- 发布时间:2017/7/29 13:00:00 -- For Each dr As DataRow In DataTables("表A").Select("[批量下载] = true") Dim c As Col = e.Col Dim ftp As FTPClient = c.DataCol.FTPClient Dim path As String = ProjectPath & "RemoteFiles\\" & FileSys.GetName(e.Row(c.Name)) ftp.Download(e.Row(c.Name), path, True) \' 如何下载所有选中的行呢? Next
上述代码写在Button的Click中也不对。 |
||||
-- 作者:有点蓝 -- 发布时间:2017/7/29 14:47:00 -- Dim ftp1 As New FtpClient ftp1.Host="196.128.143.28" ftp1.Account = "foxuser" ftp1.Password = "138238110" ftp1.RootDir = "\\photo" \'设置根目录 For Each dr As DataRow In DataTables("表A").Select("[批量下载] = true") Dim path As String = ProjectPath & "RemoteFiles\\" & FileSys.GetName(dr("文件地址")) ftp1.Download(dr("文件地址"), path, True) \' 如何下载所有选中的行呢? Next ftp1.Close
|
||||
-- 作者:天若千颖 -- 发布时间:2017/7/29 15:42:00 -- 多谢蓝版,FT的代码就是高效,这么有用的功能这么简单的代码就实现了。
另外,补充问一个,这种界面,包括FTPManager的界面如何让显示成英文? 英文操作系统下能显示为英文吗?
![]() ![]() |
||||
-- 作者:有点蓝 -- 发布时间:2017/7/29 16:12:00 -- 这个没有办法的,内置的只能显示为中文 |