FSO Files Collection Size Limitation?!?

[Schof]

I seemed to have run up against a 256 file limitation in the FileSystemObject Files collection?!? Can anyone confirm this or point to a workaround that does not entail piping the output to a file and iterating through that?

    Dim objFSO As New FileSystemObject
    Dim objFolder As Folder
    Dim objFiles As Files
    Dim objFile As File
    dim strFolder As String

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    strFolder = "C:\Windows\System32"

    If objFSO.FolderExists(strFolder) Then
        Set objFolder = objFSO.getfolder(strFolder)
        For Each objFile In objFolder.Files
        Next objFile
    End If
    ...

 

[Schof]

Looks like it is a display issue in the watch window. The code below will demonstrate that this limitation actually does not exist in the collection itself:

Function FSO()
   Dim objFSO As New FileSystemObject
    Dim objFolder As Folder
    Dim objFiles As Files
    Dim objFile As File
    Dim strFolder As String

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    strFolder = "C:\Windows\System32"

    If objFSO.FolderExists(strFolder) Then
        Set objFolder = objFSO.getfolder(strFolder)
        For Each objFile In objFolder.Files
            X = X + 1
            Debug.Print X & vbTab & objFile        
         Next objFile
    End If
End Function

Props to DCrake for the counter suggestion.