Question

求BAT或者VBS脚本,批量重命名一个文件夹下面的文件为1 、2、3、4、5、依次等等

求BAT或者VBS脚本,批量重命名一个文件夹下面的文件为1 、2、3、4、5、依次等等

后缀最好不变，变了也行

若以下回答无法解决问题，邀请你更新回答

Answer 1

dim fso
dim folder
dim files
dim i,ext
set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.getFolder("h:\test")'你要改名的目录
set files = folder.files

for each file in files
ext = right(file.name,4)
file.name = i & ext
i = i+1
next

没有做错误处理，只能运行一次，第二次会报错

追问

试了下，第一个文件改成没有名字了，能不能从1递增呢

追答

哦，i忘了初始化了。for each file in files这句前面加上i=1
已经运行过的文件夹第二次运行会报错哦，因为改名时没有判断文件名是否重复。