VB脚本逻辑错误

Question

我有以下来自 vbscript 的代码片段：

            For Each Modified in Files
                If IsEmpty(file1) or IsNull(file1) Then
                    file1 = Modified
                Else
                    file2 = Modified
                    If hDisk.FreeSpace > 900000000000 Then Exit For
       ERROR HERE-->ElseIf file2.DateLastModified < file1.DateLastModified And DateDiff("D", file2.DateLastModified, Now) > 7 Then file2.Delete
                    ElseIf file1.DateLastModified < file2.DateLastModified And DateDiff("D", file1.DateLastModified, Now) > 7 Then 
                        file1.Delete
                        file1 = Modified
                    End If
                    End If
                End If
            Next

当我尝试编译脚本时，收到一条错误，指出缺少“结束”，更具体地说是预期“结束”代码 800A03F6。

我已经对代码进行了多次梳理，似乎无法弄清楚为什么它会给出这个错误。是的，我还尝试使用“End”而不是“End If”

Answer 1

ElseIf 的结构是：

If c1 Then
   ..
ElseIf c2 Then <-- Not Else
   ..
ElseIf c3 Then
   ..
Else <-- last to catch all else
   --
End If

Answer 2

您有 3 个 End If，但只开始了 2 个 If。如果我没看错的话，您可以执行以下操作：

            For Each Modified in Files
                If IsEmpty(file1) or IsNull(file1) Then
                    file1 = Modified
                Else
                    file2 = Modified
                    If hDisk.FreeSpace > 900000000000 Then
                        Exit For
                    ElseIf file2.DateLastModified < file1.DateLastModified And DateDiff("D", file2.DateLastModified, Now) > 7 Then
                        file2.Delete
                    ElseIf file1.DateLastModified < file2.DateLastModified And DateDiff("D", file1.DateLastModified, Now) > 7 Then 
                        file1.Delete
                        file1 = Modified
                    End If
                End If
            Next

最主要的是，如果您要使用 ElseIf，则不能在 Then< 之后添加内容/code> 与 Then 位于同一行 - 仅当您的 If 语句全部包含在同一行时才能执行此操作。