'批量改文件名  ReNameFiles.vbs
'防止出现错误
On Error Resume Next
'vbs代码开始----------------------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws =createobject("wscript.shell")
Dim path,extName,destFileName