añadir fecha del sistema a un directorio
 

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

Hola manujimenez, bienvenido a Club Delphi :)

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

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.

Solucionado
 

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.

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



Gracias :)

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. :)