51问答网 > 按键精灵：写一个脚本，对一个文件夹内指定格式的文件做重命名处理,命名从1开始，依次下去。

按键精灵：写一个脚本，对一个文件夹内指定格式的文件做重命名处理,命名从1开始，依次下去。

2025-01-07 22:53:29

推荐回答（1个）

回答1：

lib.文件.找个命令库按键精灵又自带的。如果你的按键精灵没有问题的话直接复制就可以用了

Dim 路径, i, a
路径 = "C:\Users\Administrator\Desktop\新建文件夹" //你改成自己要用的路径
数组 = Lib.文件.遍历指定目录下所有文件名(路径)
For i = 0 To UBound(数组) - 1
a = i + 1
Call Plugin.File.ReNameFile(路径 & "\" & 数组(i), 路径 & "\" & a & ".txt")
TracePrint 路径 & "\" & a & ".txt"
TracePrint 路径 & 数组(i)
Next