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