Jag har en känsla av att det är FileSystemObject man skall använda idag. Men för några år sedan skulle det ha sett ut så här ungefär (+ massa felhantering och annat kul)
Sub döpom()
Dim sSökväg As String, Filnamn, nyttFilnamn As String
Dim iSistaPunkt As Integer
sSökväg = "C:\exempelmapp\"
Filnamn = Dir(sSökväg & "*.*")
Do While Filnamn <> ""
iSistaPunkt = InStrRev(stringcheck:=Filnamn, stringmatch:=".")
nyttFilnamn = Left(Filnamn, iSistaPunkt - 6) & Mid(Filnamn, iSistaPunkt)
Name sSökväg & Filnamn As sSökväg & nyttFilnamn
Filnamn = Dir()
Loop
End Sub