Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Crear carpeta con la fecha actual ??? (https://www.clubdelphi.com/foros/showthread.php?t=64175)

dellarts 20-03-2009 17:50:42

Crear carpeta con la fecha actual ???
 
Hola

Estoy intentando crear una carpeta con la siguiente instruccion pero no lo consigo. Lo he conseguido poniendo un nombre cualkiera x cuando añado la hora no me lo hace y no sale ningun error siquiera.

Código:

var
  data:tdatetime;
  a:string;
begin
  a := 'aa1';
  data := now();
  createDir('C:\ciclistes\image#'+datetimetostr(data)+'#'+'');
end;

Saludos

dec 20-03-2009 17:54:42

Hola,

Lo que ocurre es que la cadena que retorna "datetimetostr()" incluye caracteres ("/") que no se permiten para los nombres de archivos o carpetas. Tendrás que sustituirlos, o formatear la fecha de manera que no incluya esos caracteres.

ContraVeneno 20-03-2009 18:01:31

Código Delphi [-]
CreateDir('C:\UnaCarpeta\'+FormatDateTime('yyyymmdd', Now));

dellarts 20-03-2009 18:04:52

Gracias voy ha intentarlo

dellarts 20-03-2009 18:41:39

Ya lo consegui muchas gracias

Cañones 13-08-2010 00:51:04

Cita:

Empezado por ContraVeneno (Mensaje 342137)
Código Delphi [-]CreateDir('C:\UnaCarpeta\'+FormatDateTime('yyyymmdd', Now));

Hola ContraVeneno, tengo un problema con tu código.
Si dentro de C:\no existe "UnaCarpeta" no funciona.
Desde ya muchas gracias

ecfisa 13-08-2010 05:56:37

Hola

Sacá el '\' despues de 'C:\UnaCarpeta':
Código Delphi [-]
  CreateDir('C:\UnaCarpeta'+FormatDateTime('yyyymmdd', Now));

Si no la cadena que enviás es: 'C:\UnaCarpeta\20100813' ( si hablamos de hoy... :) ),
y como 'C:\UnaCarpeta', aún no fue creada, lógicamente no puede crear la carpeta '20100813' que depende de la anterior.


Saludos.

ContraVeneno 13-08-2010 18:42:02

Obvio, mi querido Watson :D:D

lo de "unaCarpeta" era solo por ejemplo... así com utilizo "UnQuery", "UnGrid", "UnaTabla", etc., etc... era solo para el ejemplo.

Saludos. :)

rgstuamigo 13-08-2010 22:04:38

Cita:

Empezado por Cañones (Mensaje 373426)
..., tengo un problema con tu código.
Si dentro de C:\no existe "UnaCarpeta" no funciona.
...

En ese caso para obligar la creacion de los directorios(Carpeta) padres, puedes utilizar la funcion "ForceDirectories" en lugar de "CreateDir". ;)
Saludos...:)

ecfisa 13-08-2010 22:20:34

Cita:

Empezado por rgstuamigo (Mensaje 373508)
En ese caso para obligar la creacion de los directorios(Carpeta) padres, puedes utilizar la funcion "ForceDirectories" en lugar de "CreateDir". ;)
Saludos...:)

Ya estoy cambiando el refran:
"todos los días se aprende algo nuevo"

por:
"todos los días se aprende una función nueva" ... :)

Saludos.

Cañones 14-08-2010 13:33:34

Cita:

Empezado por rgstuamigo (Mensaje 373508)
En ese caso para obligar la creacion de los directorios(Carpeta) padres, puedes utilizar la funcion "ForceDirectories" en lugar de "CreateDir". ;)
Saludos...:)

Muchas gracias. Justo lo que necesitaba. Gracias nuevamente por entender lo que necesitaba.

Saludos de Cañones.

manujimenez 23-04-2013 19:36:16

Renombrar una carpeta
 
Y como se renombra una carpeta que ya tienen ficheros y directorios con la fecha????
por que esto no me funciona?

CreateDir('C:\www'+ 'FormatDateTime'('yyyymmdd', Now));

:|

Casimiro Notevi 23-04-2013 19:40:24

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

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



Gracias :)

ecfisa 23-04-2013 19:44:59

Cita:

Empezado por manujimenez (Mensaje 459132)
Y como se renombra una carpeta que ya tienen ficheros y directorios con la fecha????
por que esto no me funciona?

CreateDir('C:\www'+ 'FormatDateTime'('yyyymmdd', Now));

:|

Hola manujimenes.

Por favor, no dupliques las consultas. Ya realizaste esa pregunta en este hilo.

Saludos.


La franja horaria es GMT +2. Ahora son las 05:38:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi