以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158522)

--  作者：魏福庆 --  发布时间：2020/11/23 11:07:00 --  [求助] 此主题相关图片如下：2.png 老师您好，附件列我已经扩展为多文件形式，并存入了多个文件，现在有个需求，把当前行的附件导出到一个指定文件夹内，便于上交，但是现有窗口的文件另存为按钮只能一个一个另存，我想增加个窗口和按钮，一件导出选定行的所有文件，按钮代码如何编辑？ 此主题相关图片如下：1.png

--  作者：有点蓝 --  发布时间：2020/11/23 11:28:00 --   比如：http://www.foxtable.com/webhelp/topics/2717.htm、http://www.foxtable.com/webhelp/topics/0342.htm Dim r As Row = Tables("a").current For s As String In r.DataRow.Lines("附件")     FileSys.CopyFile(ProjectPath& "Attachments\\" & s, "C:\\xx目录\\" & s) Next

--  作者：魏福庆 --  发布时间：2020/11/23 11:53:00 --   这个报错了

--  作者：魏福庆 --  发布时间：2020/11/23 11:53:00 --   此主题相关图片如下：3.png

--  作者：有点蓝 --  发布时间：2020/11/23 13:42:00 --   http://www.foxtable.com/webhelp/topics/0226.htm For each s As String In r.DataRow.Lines("附件")

--  作者：魏福庆 --  发布时间：2020/11/23 13:54:00 --   感谢老师，已经实现功能。 Dim r As Row = Tables("文件").current For Each s As String In r.DataRow.Lines("附件") FileSys.CopyFile(ProjectPath &"Attachments\\五型班组\\文件\\"& s, "C:\\Users\\Administrator\\Desktop\\导出文件\\"&s) Next