以文本方式查看主题

-  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
--  求助批量下载远程附件代码


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170729122531.jpg
图片点击可在新窗口打开查看

 

如图,请教版主。

 

“文件地址“列是存放远程文件,放在FTP上,点击该列可直接下载文件。代码已有。

 

但是,考虑到文件个数太多,客户需要可以批量选中列表中的文件,然后点击“批量下载”按钮,可以打包,或者一次性下载表中“批量下载”被勾选的资料。

 

窗口中“批量下载”的代码如何写?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:批量下载.table


--  作者:天若千颖
--  发布时间: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的界面如何让显示成英文? 英文操作系统下能显示为英文吗?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170729153911.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2017/7/29 16:12:00
--  
这个没有办法的,内置的只能显示为中文