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

For Each文件不超过1000个文件？

0 个答案: