主题：求助：多文件列已录入后，如何批量复制到创建的新目录下；

此主题相关图片如下：1.png

此主题相关图片如下：2.png

此主题相关图片如下：3.png

1、把列的存放目录改一下，改成新的目录；

 

2、把文件夹里面的文件拷贝过去，就行了。

用代码就这样写

 

1、http://www.foxtable.com/help/topics/2043.htm

 

2、http://www.foxtable.com/help/topics/0343.htm

 

 

这个不能实现我的功能。

还有点特殊的，“预算文件”列，一行中有：几个文件，（有DOC,XLS等文件）；行数还特别多。有上千行的数据要处理。

参考代码，循环每行一行，拷贝文件进去各自的文件夹即可

 

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

别的不说了，版主太让我们感动了。这时候了，还能回复我们的问题。

此主题相关图片如下：55.png