Ma, se dovesse interessare è bene fare due modifiche al codice:
- Portare la dichiarazione di variabile Dim i As Long a livello di Generale/Dichiarazioni in modo che mantenga la numerazione progressiva;
- modificare la linea: List1.AddItem fi.Path, (i) in List1.AddItem i & Space(3) & fi.Path, (i) in modo che a sinistra enumeri i files trovati.