写一个脚本，对一个文件夹内指定格式的文件做重命名处理，要求：重命名为数字编号从1开始，当有新增文件的时候，自动重名并跟随末尾编号格式，中间删减的时候，末尾名称自动改名补回空缺序号

      写一个脚本，对一个文件夹内指定格式的文件做重命名处理，要求：重命名为数字编号从1开始，当有新增文件的时候，自动重名并跟随末尾编号格式，中间删减的时候，末尾名称自动改名补回空缺序号。

提示：我的命令库与File插件的应用。

 

解题思路：

先要知道文件夹内的文件名，然后复制下来，在末尾加一个序列就好了

         

         

重命名处理，末尾名称自动改名补回空缺序号。

 

 

代码：

 

 1-6级按键认证答案大全下载：

(复制打开→) url7.me/S4Vk1

 

 

 

Dim 路径, i, a

路径 = "C:\" //你改成自己要用的路径

数组 = Lib.文件.遍历指定目录下所有文件名(路径)

For i = 0 To UBound(数组) - 1

a = i + 1

Call Plugin.File.ReNameFile(路径 & "\" & 数组(i), 路径 & "\" & a & ".txt")

TracePrint 路径 & "\" & a & ".txt"

TracePrint 路径 & 数组(i)

Next