Ne approfitto e poi chiudo, promesso

Ho usato il codice ed è perfetto.
Su alcuni file però (soprattutto quelli di windows) mi restituisce un errore 70 (accesso negato) e fin qui tutto giusto xchè s'incacchia se gli tocco le 'cose' sue...

A me interessa memorizzare però un elenco dei files che mi vengono scartati e continuare il loop...

Ho usato on error resume next però non riesco a capire come fare a dirgli

"on error aggiungimi il nome del file che dà errore in una listbox"

codice:
Public Sub ScanDir(fol As Folder)
    Dim fl As Folder
    Dim fi As File
    
    For Each fi In fol.Files
on error(riempimi la listbox con il nome del file)resume next        
Debug.Print fi.path
    Next
    
    For Each fl In fol.SubFolders
        Call ScanDir(fl)
    Next
End Sub
Mi dai anche questa di dritta?

Grazie ancora cià