- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：多文件列已录入后，如何批量复制到创建的新目录下； (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72816)
-- 发布时间：2015/8/6 17:39:00
-- 求助：多文件列已录入后，如何批量复制到创建的新目录下；
此主题相关图片如下：1.png
-- 发布时间：2015/8/6 17:39:00
--
此主题相关图片如下：2.png
-- 发布时间：2015/8/6 17:40:00
--
此主题相关图片如下：3.png
-- 发布时间：2015/8/6 17:48:00
--
1、把列的存放目录改一下，改成新的目录；
2、把文件夹里面的文件拷贝过去，就行了。
-- 发布时间：2015/8/6 17:49:00
--
用代码就这样写
1、http://www.foxtable.com/help/topics/2043.htm
2、http://www.foxtable.com/help/topics/0343.htm
-- 发布时间：2015/8/6 20:38:00
--
这个不能实现我的功能。
是这样的，原来的“预算文件”一列的文件都在一个目录文件中，我现在想把它复制到另一个目录的，不同子目录中（新建的，代码生成）；
根据：表：“施工合同”的，“合同名称”列来生成：不同的子目录。
[此贴子已经被作者于2015/8/6 20:41:18编辑过]
-- 发布时间：2015/8/6 20:40:00
--
还有点特殊的，“预算文件”列，一行中有：几个文件，（有DOC,XLS等文件）；行数还特别多。有上千行的数据要处理。
-- 发布时间：2015/8/6 20:50:00
--
参考代码，循环每行一行，拷贝文件进去各自的文件夹即可
For Each dr As DataRow In DataTables("表A").datarows
Dim ls As List(of String) = dr.Lines("第十列")
Dim str As String = ""
For Each s As String In ls
FileSys.CopyFile("d:\\" & s, "d:\\" & dr("第一列") & "\\" & s, True)
str &= "d:\\" & dr("第一列") & "\\" & s & vbcrlf
Next
dr("第二列") = str
Next
-- 发布时间：2015/8/6 21:08:00
--
别的不说了，版主太让我们感动了。这时候了，还能回复我们的问题。
谢谢。
-- 发布时间：2015/8/7 15:23:00
--
此主题相关图片如下：55.png