閑來(lái)無(wú)事，正好需要批量修改一些文件的名字。
一個(gè)簡(jiǎn)單的實(shí)現(xiàn)如下：

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

橙色部分根據(jù)自己的修改規(guī)則進(jìn)行替換。在記事本中另存為vbs，拷貝到相應(yīng)目錄下執(zhí)行即可。