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

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

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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47476 积分：251239 威望：0 精华：91 注册：2008/6/17 17:14:00

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

1、“清单”前面多了一个空格：

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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47476 积分：251239 威望：0 精华：91 注册：2008/6/17 17:14:00

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

你要重命名的话，第二个参数不能包括路径，因为重命名只是更改源文件的名称，并不改变文件的路径。
也许你应该用这个：

http://www.foxtable.com/help/topics/0342.htm

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.DeleteDirectory("C:\B\" & dr("宗地号"))
Next

也就是先复制文件到一个新的位置和新的名称，然后删除原来的目录，具体可以自己调整，看看全部的文件与目录相关函数：

http://www.foxtable.com/help/topics/0331.htm

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47476 积分：251239 威望：0 精华：91 注册：2008/6/17 17:14:00

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

至于第二个文件：

For Each dr As DataRow In DataTables("表A").DataRows
Dim dr2 As String = "C:\B\" & dr("宗地号")

For Each fl2 As string in Filesys.GetFiles(dr2)
FileSys.CopyFile(fl2,"C:\B\" & dr("宗地号") & "\" & dr("宗地号") & "清单.doc",True)

Next
FileSys.DeleteDirectory("C:\B\" & dr("宗地号"))
Next

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47476 积分：251239 威望：0 精华：91 注册：2008/6/17 17:14:00

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

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)
Next

参考：

http://www.foxtable.com/help/topics/1284.htm

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

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