Como crear una carpeta

[[Bicho]]

Hola,

tan fácil como ésto:

Código Delphi [-]
uses Sysutils;

...

procedure CreaDirectorio(nombredir : String);
begin
   if not DirectoriExists(nombredir) then CreateDir(nombredir);
end;

Espero te sirva.

Saludos

EDITO: Se me ha adelantado David, ojo por ojo...

[dec]

Hola,

Donde las dan las toman...

Por cierto... al cabo "CreateDir" termina usando (en Windows) la función "CreateDirectory", que también podríamos usar nosotros directamente:

Código Delphi [-]
  if not CreateDirectory(PChar('C:\Nueva carpeta'), nil) then
    ShowMessage(SysErrorMessage(GetLastError));

[jymy788]

Por seguir con el hilo, CreateDir y CreateDirectory, que hacen lo mismo, no permite crear directamente la estructura de directorios de forma "recursiva", es decir, si yo hago CreateDir(PChar('c:\temp\kk')); no se crea el directorio C:\Temp\kk directamente.

Hay que programarse esto o hay alguna función extendida que lo haga

Saludos y perdón por la ignorancia

Gracias

[dec]

Hola,

Hay que programarse esto o hay alguna función extendida que lo haga

Creo que hablamos de ello esta mañana en otro Hilo. La función que buscas es "ForceDirectories" y se encuentra en la unidad "SysUtils.pas".

[jymy788]

eres un crack DEC.

Yo no participé en el hilo que comentas pero bueno, ya he aprendido algo más.

Solo me queda una cosa que preguntar:

Si yo hago lo siguiente

fileDir := 'c:\temp\kk';
CopyFile('aplicacion.exe', PChar(fileDir), true);

No se supone que busca aplicacion.exe en el directorio donde se está ejecutando la aplicación Dephi en ese momento y debería de hacer una copia de este fichero al directorio especificado en "fileDir" ??

[dec]

Hola,

Si no estableces la ruta completa del archivo... si no me equivoco se "buscará" en el directorio "activo" en ese momento (revisa las funciones "GetActiveDir", "SetActiveDir"). Pero si lo que quieres es copiar el ejecutable de tu aplicación nada te impide usar "ParamStr(0)",... que contiene la ruta completa del ejecutable de tu aplicación.

[jymy788]

Dec, la verdad es que he probado eso ya y nada.

De hecho, me he ido al ejemplo tonto

ok := CopyFile(PChar('c:\CLDMA.LOG'), PChar('c:\JYM'), true);

donde 'c:\CLDMA.LOG' existe y 'c:\JYM' también y no copia el fichero CLDMA.LOG al directorio C:\JYM y no tengo ni idea de por qué