这个 VBScript 中的递归有什么问题？

Question

尝试递归删除设定大小的 .exe 文件 - 但 VBscript 不是我的强项，有人能看到它不能递归工作的明显原因吗？

OPTION EXPLICIT
DIM strFolder
DIM objFSO

strFolder = "C:\TESTFOLDER"

set objFSO = createobject("Scripting.FileSystemObject")

RecursiveDelete strFolder

wscript.echo "Finished"

sub RecursiveDelete(byval strDirectory)
    DIM objFolder, objSubFolder, objFile

    set objFolder = objFSO.GetFolder(strDirectory)
    for each objFile in objFolder.Files
            if ( RIGHT(UCASE(objFile.Path),4) = ".EXE" ) AND (file.Size == 47232 ) then
                wscript.echo "Deleting:" & objFile.Path
                objFile.Delete
            end if
    next

    for each objSubFolder in objFolder.SubFolders
        RecursiveDelete objSubFolder.Path
    next
end sub

Answer 1

这：

if ( RIGHT(UCASE(objFile.Path),4) = ".EXE" ) AND (file.Size == 47232 ) then

应该是：

if ( RIGHT(UCASE(objFile.Path),4) = ".EXE" ) AND (objFile.Size = 47232 ) then

Answer 2

它在做什么或没有做什么告诉你它不起作用？

提示：暂时注释掉 if 语句，然后让它打印访问的每个文件夹和文件，以确保递归正在发生。然后重新启用 if 语句，但注释掉删除语句，并让它打印匹配的文件名。

换句话说，验证它是否正在执行您认为它正在执行的操作。

我看到的其他事情，正如 Ekkehard 刚才提到的，VBScript 不使用双等号来测试相等性。

经过一些测试：

您是否在此处重新输入了此内容？因为这段代码甚至没有按照给定的方式运行。

除了导致 VBScript 编译语法错误的双等号之外，您还在该语句中引用了“file”，但在任何地方都没有声明这样的变量。

我将其更改为 objFile，注释掉了删除语句，并删除了第二个等号，并且此代码确实按照您的预期运行和递归。

我还在文件夹中创建了一些测试文件并重新启用了删除语句，测试文件被删除。

因此，由于我们不知道您遇到的实际问题是什么，所以我现在能建议的就这么多了。