Preimenovanje datotek

Imam nekaj sto wordovih in pdfjevih datotek, poimenovane po imenu in priimku. Vmes med tema besedama je presledek. Vendar jih želim preimenovati, tako da bo prej priimek in nato ime. A se da to kako na hiter način zamenjat ali moram vsako datoteko posebej?
Uporabljam XP.
Hvala.

ne vem, če kakšno orodje, ki pride z windows, podpira regular expressions. en način je, da si preneseš program za preimenovanje, ki to podpira. drugi način je, da narediš v ukazni vrstici izpis vsebine direktorija v datoteko, pri tem se poigraš s parametri ukazu, da dobiš čim manj odvečnih podatkov. potem seznam odpreš v wordu, odstraniš odvečne informacije (uporabiš lahko tudi stolpični način izbire). shraniš v tekstovno datoteko in jo odpreš v excelu ter nastaviš, da ti razmeji na presledek. zamenjaš stolpca z imenom in priimkom, dodaš v vsako vrstico še ukaz za preimenovanje, spojiš vrstice v eno in to shranih v .bat datoteko.

quick-file-rename-personal-edition

npr. nekaj takega, ampak je treba par stvari spremenit

Sub RenameFiles()
'Edit this variable to start the name search from a different row:
StartRow = 1
'Edit this variable to specify in which column the names are:
StartColumn = 1
'Edit this variable to look for a different string at the beginning of filenames
Match = "Budget"

'Define an FSO object
Dim FSO As FileSystemObject
Set FSO = New FileSystemObject

'Create a variable to store the folder holding the files
Dim FilesDir As Folder
'Change the string here to look in a different folder (highly recommended :P)
Set FilesDir = FSO.GetFolder("C:\yotam\temp\renamefiles\test\")

'Define a counter variable and set it zero
Dim i As Integer
i = 0

'Loop through all of the files in the folder
Dim CurFile As File
For Each CurFile In FilesDir.Files

'If the file begins with the word "budget" then rename it
If LCase(Left(CurFile.Name, Len(Match))) = LCase(Match) Then

'Rename the file to the value in the specified cell
CurFile.Move FilesDir + "\" + Me.Cells(StartRow + i, StartColumn).Text
'Increment the counter so next time we will use a cell from the next row for naming
i = i + 1

End If

Next
End Sub