- Set FSO = CreateObject("Scripting.FileSystemObject")
- For Each File in FSO.GetFolder(".").Files
- Ext = FSO.GetExtensionName(File)
- If LCase(Ext) = "mkv" Then RenFiles
- Next
- MsgBox "OK"
-
- Sub RenFiles()
- Set Re = New RegExp
- Re.Pattern = "(^.*\[)(\d{2})(\].*$)"
- Re.Global = True
- File.Name = Re.Replace(File.Name,"$2") & ".mkv"
- End Sub
复制代码 以上是处理mkv的,可不可以同时处理MP4、ass、rmvb? |