Для каждого файла не выходит за рамки 1000 файлов? - PullRequest
Новая
       29

Для каждого файла не выходит за рамки 1000 файлов?

0 голосов
/ 28 мая 2018

Я пытаюсь получить вывод CSV для оценки продолжительности работы рендера Blender.Мне нравится вводить временные метки файлов в 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
...