8 respuestas en este tema

[ajvdelphi]

Hola
Tengo un problema al intentar crear una carpeta con Windows 7, con XP anda bien.

Lo que hago es lo siguiente:

 

delphi

If OpenDialog1.Execute Then
     Begin
       if not DirectoryExists('c:\ProgramasCNC7\Resguardos') then
              if not CreateDir('c:\ProgramasCNC7\Resguardos') then
       ShowMessage('Hubo un problema al crear el directorio de resguardos');
    end;

Y no me lo deja crear, por qué?, soy el usuario administrador y se supone que tengo los priviligios para esto, de hecho si la creo desde Windows funciona.

Saludos
Augusto

[poliburro]

y si pruebas ejecutando el programa como administrador?

para eso selecinas el programa, click botón derecho mouse y ahí seleccionas ejecutar como administrador

[escafandra]

¿Existe la carpeta c:\ProgramasCNC7\?


Saludos.

[ajvdelphi]

y si pruebas ejecutando el programa como administrador?

para eso selecinas el programa, click botón derecho mouse y ahí seleccionas ejecutar como administrador

Voy a intentar 

[ajvdelphi]

¿Existe la carpeta c:\ProgramasCNC7\?


Saludos.

Si existe

[Sergio]

Yo tampoco tengo delphi a mano, pero... ¿CreateDir no debería darte un código de error, o bien existe una función para rescatar el último error producido en el SO? No recuerdo el "como" pero creo que se puede, y sería la pista definitiva.

¿Has comprobado los permisos de esa carpeta? Imagino que es la clave, trata de relajar esos permisos a ver, o ejecuta como administrador.

¿No deberías comprobar que el directorio inicial existe Y que el que intentas crear no existe antes de nada? Quizás solo intentes crear lo que ya existe.

Y ya no se me ocurren más tonterias... a ver si alguna te ayuda!

[ajvdelphi]

Yo tampoco tengo delphi a mano, pero... ¿CreateDir no debería darte un código de error, o bien existe una función para rescatar el último error producido en el SO? No recuerdo el "como" pero creo que se puede, y sería la pista definitiva.

¿Has comprobado los permisos de esa carpeta? Imagino que es la clave, trata de relajar esos permisos a ver, o ejecuta como administrador.

¿No deberías comprobar que el directorio inicial existe Y que el que intentas crear no existe antes de nada? Quizás solo intentes crear lo que ya existe.

Y ya no se me ocurren más tonterias... a ver si alguna te ayuda!

Hola
CreateDir solo te devuelve True/false según pudo o no pudo crear el directorio, yo le puse primero esta sentencia:

delphi

raise Exception.Create('Hubo un problema al crear el directorio de resguardos');

y directamente se queda colgado ahí 

Pero lo que mas me llama la atención que en Xp funciona perfecto.

Saludos
Augusto

[escafandra]

Para obtener el error del sistema:

Mira el truco: Obtener Mensaje de error del sistema.

delphi

ShowMessage(SysErrorMessage(GetLastError));

También mira este truco: Copiar múltiples archivos y carpetas, donde publiqué una función para crear todas las carpetas de una ruta dada aunque no existan. Usa la API de Windows y no la VCL por lo que es posible que te funcione en Win7 aunque no lo recuerdo haber probado en ese S.O.:

delphi

// Crea una carpeta y las subcarpetas de una ruta dada
procedure CreatePath(Path: string);
var
  l, fin: integer;
begin
   l:= Length(Path);
   fin:= 0;
   repeat
     if (Path[fin] = '\') or (l = 0) then
     begin
       if l>0 then Path[fin]:= #0;
       CreateDirectory(PCHAR(Path), 0);
       if l>0 then Path[fin]:= '\';
     end;
     inc(fin); dec(l);
   until (l<0);
end;

Pruébalo y nos comentas.


Saludos.

[ELKurgan]

También puedes probar con la función "ForceDirectories", que si no existe la ruta la crea.

Puedes ver un ejemplo en http://www.delphibas...orceDirectories

Saludos