[objFSO] Errore: Subscript out of range: 'num'

[mosquito70]

Ciao a tutti,
torno sulla ricerca dei file in asp, perchè stamattina ho avuto questo errore

Microsoft VBScript runtime error '800a0009' 

Subscript out of range: 'num' 

/ricebandclie.asp, line 212

la riga 212 è quella indicata in rosso

' Leggo il contenuto della directory e lo metto in un array
Dim strPath   'Path directory di ricerca
Dim objFSO    'Variabile FileSystemObject
Dim objFolder 'Variable directory
Dim objItem   'Variable per il loop nel contenuto della directory
strPath = "docuavvi/file/"

' Creo oggetto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' Creo un gestore per la directory
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))

' Carico il contenuto del percorso in una matrice
Dim Listing (9999, 4)
num = 1
For Each objItem In objFolder.Files
    Listing (num, 1) = objItem.Name      
    Listing (num, 2) = objItem.Size
    Listing (num, 3) = objItem.Type
    Listing (num, 4) = objItem.Path
    num=num+1
Next
    
num=num-1

Ne sapete qualcosa?

[mosquito70]

Credo di aver trovato il problema.

L'array è dimensionato fino a 9999 mentre gli elementi che deve contenere (i file nella dir) superano i 10.000

Ora provo e vi do conferma

edit: Confermo l'errore.