vbscript - 对于每个文件不超过 1000 个文件？

Question

我正在尝试为 Blender 渲染作业持续时间估计获取 CSV 输出。我喜欢将文件时间戳输入到 Excel 中，所以我在 VBScript 下编写（它还没有 100% 准备好，但回显应该可以工作）。但是，它不会迭代超过第 1000 个 png 文件。它以文件 9999 结尾。目前我有 35432 个 png 文件。

为什么 VBScript 不会超过 1000 个文件？

Option Explicit 'force all variables to be declared
Const ForWriting = 2
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objTS 'Text Stream Object
Set objTS = objFSO.OpenTextFile("C:\tmp\output.txt", ForWriting, True)

Recurse objFSO.GetFolder("C:\tmp")
objTS.Close()

Sub Recurse(objFolder)
    Dim objFile, objSubFolder
    For Each objFile In objFolder.Files
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "png" Then
            WScript.Echo objFSO.GetBaseName(objFile.Name) & vbTab & _
                CDate(objFile.DateLastModified) & vbTab & _
                CDate(objFile.DateCreated)
            objTS.WriteLine(objfile.Path)
        End If
    Next
    'unmark to make it recursive
    'For Each objSubFolder In objFolder.SubFolders
    '    Recurse objSubFolder
    'Next
End Sub

标签： vbscriptfilesystemobject