in pratica quello che ti ho detto a parole non è altro che codice...

innanzi tutto se non vuoi usare il Late Binding, referenzia la libreria:

windows script host object model

in un nuovo form metti una ListBox

e usa questo codice

codice:
Private Sub Form_Load()

Dim fso As FileSystemObject                 'istanzio il FileSystemObject
Dim fld As Folder                           'istanzio l'oggetto cartella
Dim fil As File                             'istanzio l'oggetto file

Set fso = New FileSystemObject
Set fld = fso.GetFolder("E:\My Music\MP3")  'imposto la cartella in cui cercare
For Each fil In fld.Files                   'per tutti i files nella cartella
    List1.AddItem fil.Name                  'carica il nome del file nella ListBox
Next fil
        
End Sub
come vedi non dovevi far altro che trasferire in codice quello che ti avevo detto a parole... l'esempio era tutto lì....

per rinominare il file usa la proprietà Name dell'oggetto File.

e premi F1 per maggiori e dettagliate informazioni...

Boolean