Se vuoi un metodo banale dovresti inserire nella form una FileListBox (la trovi a sinistra insieme agli altri controlli) e quindi impostare la sua proprietà Visible su False. Poi da codice devi eseguire:

FileListBox.Path = PercorsoCartella
NumeroFile = FileListBox.ListCount

Quindi con la proprietà Name rinominare tutti i file, prelevando tramite la FileListBox i loro nomi.

Byez