如何在VBScript中设置两个不同的objFile循环控制变量？

这个编译错误太常见啦！原因很简单：VBA里同一个作用域内的For Each循环控制变量不能重名——你内层循环又用了和外层一样的objFile，编译器直接懵了，以为你在重复使用同一个控制变量，所以报错。

给你两个靠谱的解决办法：

方法1：给内层循环换个变量名（最推荐） #

这是最简单直接的方案，只要给内层循环的文件变量起个不一样的名字，比如objInnerFile，瞬间解决问题，还能提升代码可读性：

For Each objFile In objFolder.Files
    ' do something...
    For Each objInnerFile In AnotherFolder.Files
        ' Do something else...
    Next objInnerFile
Next objFile

这种方式逻辑清晰，一眼就能区分内外层操作的是哪个文件对象，后续维护也不容易搞混。

方法2：把内层逻辑封装到独立子过程（适合复杂场景） #

如果你的内层循环逻辑比较复杂，或者你非要用同一个变量名（不推荐哈），可以把内层循环放到一个单独的子过程里，利用变量作用域隔离来避免冲突：

先定义处理另一个文件夹的子过程：

Sub ProcessAnotherFolderFiles(anotherFolder As Folder)
    Dim objFile As File
    For Each objFile In anotherFolder.Files
        ' Do something else...
    Next objFile
End Sub

然后在主循环里调用这个子过程：

For Each objFile In objFolder.Files
    ' do something...
    Call ProcessAnotherFolderFiles(AnotherFolder)
Next objFile

这里子过程里的objFile是局部变量，和主循环里的objFile不在同一个作用域，所以完全不会冲突。不过这种方式只适合内层逻辑复杂的情况，简单循环没必要大费周章。

总的来说，优先选方法1，既解决问题又让代码更清爽～

内容的提问来源于stack exchange，提问作者Bradley Wellington