批量改名的指令碼

以前下載的批量更名專家不好用了，根據設定好的規則無法對檔案進行批量改名。無奈，自己寫了一段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部落格 ” ，連結：http://blog.itpub.net/29867/viewspace-908423/，如需轉載，請註明出處，否則將追究法律責任。