vbscript遍历目录并修改文件名称

以下是一个VBScript程序，可以遍历目录并修改文件名称：

Option Explicit
Dim FSO, FolderObj, FileObj, NewName

Set FSO = CreateObject("Scripting.FileSystemObject")
Set FolderObj = FSO.GetFolder("C:\TestFolder\")

For Each FileObj In FolderObj.Files
    NewName = Replace(FileObj.Name, "OldString", "NewString") ' 将OldString替换为NewString
    FileObj.Name = NewName
Next

Set FileObj = Nothing
Set FolderObj = Nothing
Set FSO = Nothing

将此代码复制到您的VBScript编辑器中并运行，将 "C:\TestFolder\" 替换为您要遍历的目录的路径，将 "OldString" 替换为您要替换的字符串，将 "NewString" 替换为替换后的字符串。

该程序使用 `FileSystemObject` 对象来获取文件和文件夹，使用 `For Each` 循环遍历文件夹中的所有文件，并使用 `Replace` 函数将文件名称中的 "OldString" 替换为 "NewString"，然后使用 `Name` 属性修改文件名称。

注意：在运行此程序之前，请备份您要更改名称的文件。