VBScript文件存在时

Question

这件事会杀了我，否则我就会杀了它。我不知道我在做什么，但是我在while语句中删除文件后仍然找不到文件。

        MsgBox FSO.FileExists(file.path)'Returns True as a test
        While (FSO.FileExists(file.path))
            If objZip.Items.Item(0).Name = FSO.getfilename(file.path) Then
                FSO.DeleteFile (file.path)
                MsgBox FSO.FileExists(file.path)'Returns False as a test
            End If

            WScript.Sleep 100

        Wend

有人能指出我做错了什么吗？我在另一个工作脚本中有类似的代码。

Answer 1

删除磁盘文件时，存储在file变量中的对它的引用不再有效。将file.Path值存储在变量中，然后更改代码以使用它。

Dim filePath

    filePath = file.Path
    While FSO.FileExists( filePath )
        FSO.DeleteFile filePath 
    Wend

注意 - 以前的代码只公开了有关如何引用文件的方法。如果DeleteFile失败（我们循环删除文件），则需要进行错误处理和循环等待。