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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样对文件批量重命名？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130037)

--  作者：comnets
--  发布时间：2019/1/11 14:57:00
--  怎样对文件批量重命名？
对D盘A文件夹下的所有文件从001.docx开始重命名，应该怎样做？
[此贴子已经被作者于2019/1/11 15:00:09编辑过]

--  作者：有点甜
--  发布时间：2019/1/11 15:58:00
--
Dim i As Integer = 1
For Each File As String In FileSys.GetFiles("d:\\")
    If FileSys.FileExists("d:\\" & Format(i, "000") & ".docx")=False Then
        FileSys.RenameFile(file, Format(i, "000") & ".docx")
    End If
    i += 1
Next