vbs,修改文件名

一次性能测试记录，由于项目要批量上传文件，奈何文件有50 * 2个，而后系统效验文件名，要不停地修改，找了一些资料整理脚本以下：性能

strFolder = "\\xxxx\2018198_数据文件\HH\"
Dim name1,name2测试

'-------------------------输入要修改的文件名--------------------------------------------
'name1 原文件名
'name2 要修改的文件名
name1 ="20180919001"
name2 ="20180920001"
'-------------------------输入要修改的文件名--------------------------------------------ip

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
io

For Each strFile in colFiles
If Lcase(objFSO.GetExtensionName(strFile)) = "txt" Then
strNewName = Replace(strFile.Name, name1, name2)
objFSO.MoveFile strFile, strFolder & "\" & strNewName
End If
Nextim

For Each strFile in colFiles
If Lcase(objFSO.GetExtensionName(strFile)) = "flag" Then
strNewName = Replace(strFile.Name, name1, name2)
objFSO.MoveFile strFile, strFolder & "\" & strNewName
End If
Next数据

'MsgBox "修改完成！"脚本