RenombraArchivoConFecha("c:\Pp.txt")

'************************************************************************************************** 
   '* Renombra el archivo indicado, incluyendo en el la fecha de creación
   '* uso: RenombraArchivoConFecha("c:\Pp.txt")
   '* ESH 29/07/04 19:39
   '************************************************************************************************** 

Sub RenombraArchivoConFecha(strNombreOriginal)

Dim fso, _
   strNuevoNombre, _
   Archivo, _
   bytPosicion, _
   strFecha, _
   MatrizFecha

bytPosicion = InStr(strNombreOriginal, ".")
Set fso = CreateObject("Scripting.FileSystemObject")

Set Archivo = fso.GetFile(strNombreOriginal)
strFecha = FormatDateTime(Archivo.DateCreated, vbShortDate)

' reconstruyo la fecha sin separadores
MatrizFecha = Split(strFecha, "/", -1, 1)

strFecha = MatrizFecha(0) & MatrizFecha(1) & Right(MatrizFecha(2), 2)

' compongo el nuevo nombre
strNuevoNombre = Left(strNombreOriginal, bytPosicion - 1) & "." & strFecha & "." & Mid(strNombreOriginal, bytPosicion + 1)

' renombro el archivo

fso.MoveFile strNombreOriginal, strNuevoNombre

Set fso = Nothing
Set Archivo = Nothing

End Sub '	RenombraArchivoConFecha