I found the code I use to copy/rename files and modified it to fit your file paths and names.
This is what I think you are essentially doing:
1 - Copying all files from:
O:\Archivos 2008\Templates\Act
2 - Putting them in:
O:\Archivos 2008\Templates\Prior
3 - Adding " ant" to the file name just before the .xls
If that is the case, then this code should do the same thing.
However, I must warn you of something:
The first thing this code does is delete all the files in O:\Archivos 2008\Templates\Prior
If you can live without your ant files while the new ones are created, fine. If not, we could (with code) copy the existing ant files off to some remote location, create the new ones and then delete the old ones. A little redundancy never hurts!
I strongly suggest that you make back-ups of your files prior to running this code and put them someplace other than O:\Archivos 2008\Templates\Prior. This code worked on my machine, with my folders, but obviously any time you are deleting files with code (especially somebody else's code <g>) you should be extra careful.
Let me know how it works for you.
Sub CreateAntFiles()
Dim i
Dim oldNAME As String
Dim sfol As String
Dim dfol As String
'Define Source & Destination Folders
sfol = "O:\Archivos 2008\Templates\Act"
dfol = "O:\Archivos 2008\Templates\Prior"
'Delete ant Files
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
fso.DeleteFile (dfol & "\*.*")
'Copy Current Files
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
fso.CopyFile (sfol & "\*.*"), dfol
'Rename Files
With Application.FileSearch
.NewSearch
.LookIn = dfol
.FileType = msoFileTypeAllFiles
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
oldName = .FoundFiles(i)
Name oldName As Left(oldName, Len(oldName) - 4) & " ant.xls"
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
