cambio de nombres de archivo desde excel

Puedes hacerlo con un codigo como este:

Sub RenombrarFicheros()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.getfolder("c:\temp") '<-- Cambia esta carpeta
For Each file In f.Files
If Right(file.Name, 3) = "xls" Then
file.Name = Left(file.Name, 4) & ".xls"
End If
Next
End Sub

Espero que te sirva,
Miguel.

"Manex" wrote:

Amigos tengo un problema:

Necesito renombrar varios archivos de una carpeta, estos son del tipo:

2387 Etiquetas Rojas.xls
2388 Volantes amarillos para julio.xls
2389 Resumen de actividades

la idea es que queden del tipo:

2387.xls
2388.xls
2389.xl

lo puedo hacer desde excel via Visual basic.

Gracias..