来个VBS,可以把“不学习”改成你想要改的字。- strFolder = "E:\aa\"
- strString = "不学习"
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFolder = objFSO.GetFolder(strFolder)
- Set allFiles = objFolder.Files
- For Each File In allFiles
- If Lcase(Right(File.Name, 11)) = "-学习-bat.txt" Then
- strNewName = Replace(File.Name, "学习", strString)
- objFSO.MoveFile File, strFolder & strNewName
- End If
- Next
复制代码
|