批量修改文件名

闲来无事，正好需要批量修改一些文件的名字。
一个简单的实现如下：

set objfso=createobject("scripting.filesystemobject")
set objfiles=objfso.getfolder(".").files
for each objfile in objfiles
    newname = replace(objfile.name,"[APTX4869]","")
  if objfile.name <> newname then
    objfile.name = newname
  end if
next
set objfiles=nothing
set objfso=nothing

橙色部分根据自己的修改规则进行替换。在记事本中另存为vbs，拷贝到相应目录下执行即可。