med rename ville jeg nok først starte med at få en liste over filerne der skal ændres... her kan der bruges io.directory.getfiles()... herefter er det bare at køre en lykke så du får fat i hvert enkelt fil, her kan du så omdøbe den med My.Computer.FileSystem.RenameFile()...
et meget hurtigt og grimt eksempel på hvordan det kunne gøres,
Dim ost As String() = IO.Directory.GetFiles("C:\", "*.*", IO.SearchOption.TopDirectoryOnly)
Dim nytFilNavn As String = ""
For Each fil As String In ost
nytFilNavn = String.Format("Omdøbt filen {0}{1}", IO.Path.GetFileNameWithoutExtension(fil), IO.Path.GetExtension(fil))
My.Computer.FileSystem.RenameFile(fil, nytFilNavn)
Next