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