批量重命名MP4文件的VBScript异常问题排查

问题原因 #

核心问题出在objFolder.Files是动态集合——它会实时反映当前目录的文件变化。当你设置intCounter = 80时，重命名生成的80.mp4、81.mp4等新MP4文件会被自动加入到这个集合中，而For Each循环会持续遍历这些新出现的文件，把它们再次重命名为下一个编号，如此循环往复，最终生成数百个文件。

当初始值设为1时看似正常，只是巧合：原文件编号从33开始，重命名生成的1.mp4、2.mp4等新文件，可能在For Each遍历完原有50个文件后才被加入集合，循环刚好结束，但这种写法本质上存在逻辑漏洞，并非可靠的实现方式。

解决方案 #

先将所有需要处理的MP4文件收集到静态数组中，再遍历数组执行重命名操作。静态数组不会随目录文件变化而更新，从根本上避免重复遍历的问题。

修改后的代码：

Dim objFSO, objFolder, intCounter, arrFiles, i

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(objFSO.GetAbsolutePathName("."))

' 先收集所有MP4文件到静态数组
ReDim arrFiles(objFolder.Files.Count - 1)
i = 0
For Each objFile In objFolder.Files
    ' 统一转小写判断，兼容MP4、Mp4等大小写情况
    If LCase(objFSO.GetExtensionName(objFile)) = "mp4" Then
        Set arrFiles(i) = objFile
        i = i + 1
    End If
Next
' 调整数组大小至实际MP4文件数量
ReDim Preserve arrFiles(i - 1)

intCounter = 80 ' 可设置任意起始编号
For Each objFile In arrFiles
    objFSO.MoveFile objFile, intCounter & ".mp4"
    intCounter = intCounter + 1
Next

Set objFSO = Nothing
Set objFolder = Nothing

关键修改点 #

• 先遍历目录一次，将目标MP4文件存入静态数组，隔离后续文件变化对遍历流程的影响
• 用LCase统一扩展名大小写，避免漏处理非小写扩展名的MP4文件
• 调整数组大小，去除未使用的空元素，优化内存占用

内容的提问来源于stack exchange，提问作者Jimmy D