6 respuestas en este tema

[monchito_elroro]

Hola a todos pues mi pregunta es esa, como puedo crear una carpeta pero que esta tenga de nombre la fecha actual......... gracias por su atención

[egostar]

En delphi lo haría así:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateDir(formatdatetime('mmddyyyy',Now));
end;

En lazarus debería haber una función similar.

Salud OS

[jc]

En delphi lo haría así:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateDir(formatdatetime('mmddyyyy',Now));
end;

En lazarus debería haber una función similar.

Salud OS

En Lazarus es muy muy parecido :

delphi

CreateDir(FormatDateTime('ddmmyyyy', Date));

o para que queda más clara la fecha:

delphi

CreateDir(FormatDateTime('dd_mm_yyyy', Date));

Saludos

[monchito_elroro]

Gracias lo probaré....................

[monchito_elroro]

Amigos lo probé y queda bien............. pero una consulta..
y si quiero que aparezca un palabra junto a la fecha.....
pues el código:

delphi

CreateDir(FormatDateTime('dd_mm_yyyy', Date));

crea la carpeta, pero y si quisiera  crear esa misma carpeta pero en una ubicación y con un nombre cualquiera....
como lo podría hacer?
he probado algo así

delphi

CreateDir('c:\escuela\inicial ', FormatDateTime('dd_mm_yyyy', Date));

pero da error.................por favor si pueden ayudarme......

[egostar]

Lo que pasa es que le has incluido dos parametros en lugar de uno.

delphi

//Con esto te debe quedar algo así C:\ESCUELA\INICIAL 26_05_2011
CreateDir('c:\escuela\inicial '+FormatDateTime('dd_mm_yyyy', Date));
 
//Si quieres que la fecha sea un subdirectorio de INICIAL con esto debe quedar así C:\ESCUELA\INICIAL\26_05_2011
CreateDir('c:\escuela\inicial\', FormatDateTime('dd_mm_yyyy', Date));

Salud OS

[lezamablr]

Igual puedes usar ForceDirectories ( const Path : string ) : Boolean, para crear una estructura completa de directorios que no existen.

Tomado de http://delphibasics....orceDirectories