- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教老师一个问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49581)
-- 发布时间：2014/4/20 20:08:00
-- 请教老师一个问题
请教老师一个问题
如何用该命令 CopyDirectory 的sourceDirectory：把复制的目录在A表B列中引用设定的路径FileSys.CopyDirectory ("C:\\TestFiles", "C:\\TestFiles2", True)
如：A表B列文本列设定的路径为 “E:\\音乐3\\《全球极品测试》Ⅱ2CD1” 的文件夹中的内容复制到 “D:\\1111” 的文件夹中
这代码如何写 这没问题
这代码如何写
-- 发布时间：2014/4/20 20:15:00
--
比如，要取得 A表第一行B列的值，这样写
Dim v As String = Tables("表A").Rows(0)("B列")
然后，拷贝便可
FileSys.CopyDirectory(v, "D:\\1111", true)
-- 发布时间：2014/4/20 21:44:00
--
谢谢有点甜帮忙解答
-- 发布时间：2014/4/20 22:10:00
--
如题：在 A表B列文本列设定的路径有多行的文件夹将他全部复制到 “D:\\1111” 下建立相同的文件夹下面。
-- 发布时间：2014/4/20 22:12:00
--
多行的文件夹？比如有 10行，每行有一个路径？
For Each r As Row In Tables("表a").Rows
FileSys.CopyDirectory(r("B列"), "D:\\1111", true)
Next
-- 发布时间：2014/4/21 12:41:00
--
有点甜老师您好：
请帮忙做一个按钮，将图片的内容按“原目录”的文件夹复制到“目标目录”的文件夹是相同的目录名称，相当于XCOPY的功能。
谢谢啦！
此主题相关图片如下：image00000.jpg
-- 发布时间：2014/4/21 14:36:00
--
代码很简单，楼主，你要灵活变通
For Each dr As DataRow In DataTables("表A").Select("原目录 is not null and 目标目录 is not null")
FileSys.CopyDirectory(dr("原目录"), dr("目标目录"), true)
Next
-- 发布时间：2014/4/21 16:45:00
--
太好了，彻底帮我搞定了按钮文件夹拷贝设置，谢谢有点甜老师