Vbscript 如何每15分钟循环一次，同时从.txt获取数据？

我有下面这样的代码，用于从.txt获取数据，并每15分钟循环一次。我只是尝试使用9000的值来缩短测试时间。如果成功，我将设置为900000，持续15分钟

Dim fso, path, file, recentDate, recentFile, objFSO, objOutputFile, objTextFile, strText, i

i = 0
Do While i = 0
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set recentFile = Nothing
    For Each file In fso.GetFolder("C:\Users\ID\Documents\DATA-DTL\vbs\").Files
        If (recentFile is Nothing) Then
            Set recentFile = file
        ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
            Set recentFile = file
        End If
    Next

    If recentFile is Nothing Then
        WScript.Echo "no recent Files"
    Else
        'WScript.Echo "Recent file is " & recentFile.Name & " " & recentFile.DateLastModified
        Const ForReading = 1
        Set objFSO = CreateObject("Scripting.FileSystemObject")

        Set objOutputFile = objFSO.CreateTextFile("temp.txt")
        Set objTextFile = objFSO.OpenTextFile("dtl.txt", ForReading)
        strText = objTextFile.ReadAll
        objTextFile.Close
        objOutputFile.Write strText

        Set objOutputFile = objFSO.CreateTextFile("dtl.txt")
        Set objTextFile = objFSO.OpenTextFile("temp.txt", ForReading)
        strText = objTextFile.ReadAll
        objTextFile.Close
        objOutputFile.Write strText

        Set objTextFile = objFSO.OpenTextFile("C:\Users\ID\Documents\DATA-DTL\vbs\" & recentFile.Name, ForReading)
        strText = objTextFile.ReadAll
        objTextFile.Close
        objOutputFile.Write strText

        objOutputFile.Close
    End If

    WScript.Sleep (9000)
Loop

起初代码运行，但在循环中我得到一个错误

名称重新定义为“ForReading”

---

将

Const ForReading=1

行直接移动到脚本顶部的

dim

语句下方

---

正如上面所说的，每次循环时都试图重新定义一个常量，这是没有意义的。

将

常量ForReading=1

行直接移动到脚本顶部

dim

语句的下方

---

正如上面所说，每次循环时都试图重新定义一个常数，这是毫无意义的。

哇，我明白了，运行成功无误，非常感谢@如果你发现它解决了你的问题，请考虑一下。哇，我知道了，成功了，没有错误，谢谢你！如果你发现它解决了你的问题，请考虑一下。