请教老师一个问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教老师一个问题

共有3841人关注过本帖树形打印复制链接主题：请教老师一个问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/20 20:15:00 [显示全部帖子]

比如，要取得 A表第一行B列的值，这样写

Dim v As String = Tables("表A").Rows(0)("B列")

然后，拷贝便可

FileSys.CopyDirectory(v, "D:\1111", true)

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/20 22:12:00 [显示全部帖子]

多行的文件夹？比如有 10行，每行有一个路径？

For Each r As Row In Tables("表a").Rows

FileSys.CopyDirectory(r("B列"), "D:\1111", true)

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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)

主题：请教老师一个问题