[ecfisa]

Hola manujimenez, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Empezado por manujimenez

Por ejemplo c:\data renombrarlo a c:\data\23-04-2013_16:19:00:00

En ese caso estaríamos creando una subcarpeta de data, el resultado tendría que ser algo como: c:\data 23-04-2013_16:19:00:00.

Para realizar la tarea podes usar la función API MoveFile, sin embargo aún tenemos un problema con los caracteres que el S.O. no permite para un nombre, como por ejemplo los ':' o '/'.

Entonces creo que podrías hacer algo similar a:

Código Delphi [-]
function RenameFolder(const aFileName: TFileName): Boolean;
var
  tmp: string;
begin
  tmp := aFileName + ' '+
         StringReplace(DateToStr(Now), '/', '-', [rfReplaceAll]) + ' ' +
         StringReplace(TimeToStr(Now), ':', '.', [rfReplaceAll]);
  Result := MoveFile(PChar(aFileName), PChar(tmp));
end;

Llamada:

Código Delphi [-]
  RenameFolder('C:\DATA');

Saludos.