Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]移动文件夹下面的子文件夹到指定位置


  共有4174人关注过本帖树形打印复制链接

主题：[求助]移动文件夹下面的子文件夹到指定位置
帅哥哟，离线，有人找我吗？
8350
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		[求助]移动文件夹下面的子文件夹到指定位置  发帖心情 Post By：2013/7/1 8:51:00 [显示全部帖子]

总文件夹  资料 下面有很多子文件夹（是以编号命名的），在这个子文件夹下面有很多文件和一个分子文件夹还是以编号命名的。

现在想把最后一层的编号文件夹移动到指定文件夹下


我写的公式是这样的：


For Each dr As DataRow In DataTables("表A").DataRows
     Dim fl As String =Vars("路径") & dr("编号") & "\" & dr("编号")
     Dim f2 As String ="C:\A\" 
     FileSys.MoveFile(fl,f2,True)
Next

执行结果报错，为什么？
 回到顶部
帅哥哟，离线，有人找我吗？
8350
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/7/1 9:20:00 [显示全部帖子]

哎呀，用变量路径不行呀。

那我改成这样还是不行呢？

For Each dr As DataRow In DataTables("表A").DataRows
     FileSys.MoveFile( Vars("路径") & dr("编号") & "\" & dr("编号") , "C:\A\" )
Next

请注意，我是要移动最后一层的文件夹哦，不是一个文件
[此贴子已经被作者于2013-7-1 9:25:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
8350
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/7/1 10:02:00 [显示全部帖子]

怎么感觉这么复杂，
那我改成这样还是不行呢？效果是将最后一层文件夹下的文件全部移动过去了，我要的是将最后一层文件夹和里面的信息直接移动，包含最后一个编号文件夹一起哦！！！

For Each dr As DataRow In DataTables("表A").DataRows
     FileSys. MoveDirectory ( Vars("路径") & dr("编号") & "\" & dr("编号") , "C:\A\" )
Next
要移动的是最后红色代码的文件夹以及所属的所有信息哦。哥哥看看怎么理解
 回到顶部
帅哥哟，离线，有人找我吗？
8350
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/7/1 10:11:00 [显示全部帖子]

我是想将要移动的文件夹一起移动，其他没有。

例如：c:\编号\编号  ----将红色编号的文件夹和其包含的内部文件一起移动到指定文件内哦
 回到顶部
帅哥哟，离线，有人找我吗？
8350
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/7/1 10:26:00 [显示全部帖子]

是的，按
For Each dr As DataRow In DataTables("表A").DataRows
     FileSys. MoveDirectory ( Vars("路径") & dr("编号") & "\" & dr("编号") , "C:\A\" )
Next

执行后他是将    红色   文件夹下的信息移动出去，却删除了红色文件夹了，这样就没有达到我的效果。

此主题相关图片如下：无标题.png
按此在新窗口浏览图片

 回到顶部
帅哥哟，离线，有人找我吗？
8350
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/7/1 10:42:00 [显示全部帖子]

就是在弧表中类似这种情况 只用一个函数是搞不定的了

那就是这样：

For Each dr As DataRow In DataTables("表A").DataRows
     FileSys. MoveDirectory ( Vars("路径") & dr("编号") & "\" & dr("编号") , "C:\A\"& dr("编号") )
Next

哈哈，可以了，要在指定路径上先新建一个编号文件夹了

谢谢bin，辛苦你了
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询