[求助]批量修改文件名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]批量修改文件名

共有5375人关注过本帖树形打印复制链接主题：[求助]批量修改文件名

8350

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

加好友

发短信

等级：婴狐帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00

[求助]批量修改文件名 发帖心情

Post By：2013/6/6 9:50:00 [显示全部帖子]

现在有一个总文件夹，文件夹下有很多的子文件夹，这些文件夹的名称都是已数字命名的，如：542526483311JA00001， 542526483311JA00002，

现在是这样，这些数字文件夹下面有一个.doc文件，原来是清单.doc，现在我想写一个按钮，达到直接选中总文件夹后，批量完成将该文件夹下的清单.doc文件改名为542526483311JA00001清单.doc，等等，就是取数字编号文件名称+清单来完成一一对应关系，可否？

例如：图片文件夹分级
图片点击可在新窗口打开查看

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

8350

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

加好友

发短信

等级：婴狐帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00

Post By：2013/6/6 11:14:00 [显示全部帖子]

能帮写一下代码么，我参考学习，因为刚刚接触弧表，还有点搞不清楚，谢谢

8350

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

加好友

发短信

等级：婴狐帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00

Post By：2013/6/6 12:04:00 [显示全部帖子]

按钮公式：

For Each dr As DataRow In DataTables("表A").DataRows

Dim fl2 As String = "C:\B\" & dr("宗地号") & "\ 清单.doc"

FileSys.RenameFile(fl2,"C:\B\" & dr("宗地号") & "\" & dr("宗地号") & "清单.doc")

结果：

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

8350

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

加好友

发短信

等级：婴狐帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00

Post By：2013/6/6 12:04:00 [显示全部帖子]

不知错误在哪里？》请指教

8350

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

加好友

发短信

等级：婴狐帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00

Post By：2013/6/6 12:24:00 [显示全部帖子]

哈哈，收到，谢谢老总

8350

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

加好友

发短信

等级：婴狐帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00

Post By：2013/6/6 12:34:00 [显示全部帖子]

还是不行，按你的改了

For Each dr As DataRow In DataTables("表A").DataRows

Dim fl2 As String = "C:\B\" & dr("宗地号") & "\清单.doc"

FileSys.RenameFile(fl2,"C:\B\" & dr("宗地号") & "\" & dr("宗地号") & "清单.doc")

执行结果：

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

还有就是想设计一个全局变量A，A代表的是改名前的DOC文件的名称，因为手工做的很多不统一，有的是XX清单，有的是xxx清单，想给一个手工输入的地方来完成改名，不知怎么修改代码。

谢谢

8350

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

加好友

发短信

等级：婴狐帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00

Post By：2013/6/6 19:31:00 [显示全部帖子]

老板，哈哈，按你的意思我理解了一下后代码写成这样是可以执行的：

For Each dr As DataRow In DataTables("表A").DataRows

Dim fl2 As String = "C:\B\" & dr("宗地号") & "\清单.doc"

FileSys.CopyFile(fl2,"C:\B\" & dr("宗地号") & "\" & dr("宗地号") & "清单.doc",True)

FileSys.deletefile( "C:\B\" & dr("宗地号") & "\清单.doc",2,3)

但是，为了工作方便，所有需要修改的清单文件不一定都是统一的，存在有人保存的是，例如：么么村清单.doc等等，这样就要求要在窗口设计一个文本框连接变量A,则我将以上代码修改为如下后执行不过去：

For Each dr As DataRow In DataTables("表A").DataRows

Dim fl2 As String = "C:\B\" & dr("宗地号") & "\Vars("清单").doc"

FileSys.CopyFile(fl2,"C:\B\" & dr("宗地号") & "\" & dr("宗地号") & "清单.doc",True)

FileSys.deletefile( "C:\B\" & dr("宗地号") & "\Vars("清单").doc",2,3)

请问为什么执行不过去？？

辛苦你们了，谢谢，学习中

8350

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

加好友

发短信

等级：婴狐帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00

Post By：2013/6/6 20:11:00 [显示全部帖子]

怎么我先加&&的时候不行呢，是否又是空格引起的，谢谢贺总

下一主题 >> << 上一主题

主题：[求助]批量修改文件名