主题：求助批量下载远程附件代码

此主题相关图片如下：qq截图20170729122531.jpg

 

如图，请教版主。

 

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

 

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

 

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:批量下载.table

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中也不对。

多谢蓝版，FT的代码就是高效，这么有用的功能这么简单的代码就实现了。

 

另外，补充问一个，这种界面，包括FTPManager的界面如何让显示成英文？ 英文操作系统下能显示为英文吗？

 

此主题相关图片如下：qq截图20170729153911.jpg