Salve a tutti,

Dovrei creare uno script con una Listbox che pesca da una directory dei file e me li fa visualizzare con un criterio da me attribuito. Con il fso e un ciclo sono riuscito a scrivere nella listbox i nomi dei file con estensione ma essendo troppo lunghi e complessi vorrei rinominarli con un nome diverso, come si potrebbe fare. Provando con un altro ciclo non mi funziona bene.


Parte di codice:

Private Sub Form_Load()

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("cartella impostata da me")
Set File = fso.GetFile("cartella impostata da me")

For i = 0 To Files.Number - 1
Filerin = "Backup" & i & " " & File // mia prova non funziona l'incremento
Next i

For Each File In folder.Files
If Right$(File, 4) = ".mdf" Then
cmbkp.AddItem (Filerin)
End If
Next

End Sub