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

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

Option Explicit
Dim FSO, FolderObj, FileObj, NewName, i

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

i = 1 ' 初始编号

For Each FileObj In FolderObj.Files
    NewName = Left(FileObj.Name, InStrRev(FileObj.Name, ".") - 1) & "_" & i & Right(FileObj.Name, Len(FileObj.Name) - InStrRev(FileObj.Name, ".") + 1) ' 在文件名后添加递增的编号
    i = i + 1 ' 递增编号
    FileObj.Name = NewName
Next

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

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

该程序将在每个文件名后添加一个递增的编号，以便在重命名文件时避免重名。程序使用 `FileSystemObject` 对象来获取文件和文件夹，使用 `For Each` 循环遍历文件夹中的所有文件，并使用 `Left`、`InStrRev` 和 `Right` 函数来获取文件名和文件扩展名，并在文件名后添加递增的编号，最后使用 `Name` 属性修改文件名称。

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