vbs,修改文件名

一次性能測試記錄，由於項目要批量上傳文件，奈何文件有50 * 2個，而後系統效驗文件名，要不停地修改，找了一些資料整理腳本以下：

 

 

strFolder = "\\xxxx\2018198_數據文件\HH\"
Dim name1,name2

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

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

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
Next

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 "修改完成！"