añadir fecha del sistema a un directorio

[manujimenez]

Alguien sabe como añadir fecha del sistema a un directorio ya existente. Por ejemplo c:\data renombrarlo a c:\data\23-04-2013_16:19:00:00

Gracias

[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.

[manujimenez]

Ok gracias por responderme acabé dando con ello... Incluyo la línea por si a alguien le sirve.

begin
RenameFile('c:\www', 'c:\wwwzzz'+FormatDateTime('yyyymmdd', Now));
end.

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[ecfisa]

Hola manujimenez

Me alegro que lo hayas solucionado y agradecemos que nos publiques como lo hiciste.

Pero ese código te daría un resultado como: "c:\wwwzzz20130424" que es muy diferente a lo que habías solicitado en tu primer mensaje: "c:\data\23-04-2013_16:19:00:00"

Saludos.