以前下载的批量更名专家不好用了，根据设定好的规则无法对文件进行批量改名。无奈，自己写了一段VBS脚本来应对。

抓图软件自动设定的文件名会带四位数字，但我只需要后三位，比如，抓图软件抓到的图，保存为SUDOKU0902.jpg，则我需要将之重命名为SUDOKU902.jpg

多年不写VB，还有些记不住语法了，呵呵

[@more@]

' 文件名倒数第四个字符，如果是数字，则删除之

Set fs = Wscript.CreateObject("Scripting.FileSystemObject")
set fo = fs.GetFolder(".")
dim s, idx, sf, k
k=0
for each ff in fo.files
s = ff.Name
idx = instr(s, ".")
sf = left(s,idx-1)
if IsNumeric(left(right(sf,4),1)) then
ff.Name = left(sf, idx-1-4) & right(sf,3) & mid(s, idx)
k=k+1
end if
next
wscript.echo "共有 " & k & " 个文件被改名"

ITPub博客

批量改名的脚本

最新文章