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

codice:
Microsoft VBScript runtime error '800a0009' 

Subscript out of range: 'num' 

/ricebandclie.asp, line 212
la riga 212 è quella indicata in rosso


codice:
' 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?