VBS 版批量重命名

 

 1rem 读取配置文件
 2Dim config 
 3config = "conf.txt"
 4set fso=createobject("scripting.filesystemobject")  
 5set a=createobject("scripting.dictionary")  
 6set file=fso.opentextfile(config)  
 7do while file.atendofstream<>true  
 8 m=m+1  
 9 a.add m,file.readline  
 src =  a(m)
 RenameSubPage src
loop  
file.close  
Set fso =Nothing 
msgbox  "操作已完成" ,4096,"文件重命名"

Sub RenameSubPage(strURL)
 Dim path
 For i=19 To 100
  path = Replace(strURL , ".html", "_"& i & ".html")
  If fso.fileexists(path) =True Then 
   target = path & ".tmp"
   fso.movefile path , target
  Else 
   ' do nothing 
  End If 
 Next 
End Sub 

注释： conf.txt 文件内容如下：
D:\a\b\c.html
D:\d\e\f.html