[dec]

Hola,

Empezado por gulder

me imagino que esta funcion es para capturar el error del directorio cuando ya exusta grasias......

La función DirectoryExists requiere un parámetro únicamente, el cual ha de ser la ruta del directorio cuya existencia queremos comprobar: la función devolverá "true" o "false", si el directorio existe o no existe, respectivamente. Sabiendo lo dicho, podemos aprovecharlo, por ejemplo:

Código Delphi [-]
{ Caso 1 }
 
 var
   dir: string;
 begin
   dir := 'C:\directorio';
   // Preguntamos: ¿Existe el directorio?
   if not DirectoryExists(dir) then
     CreateDir(dir); // No existe, lo creamos
   {...}
 end;
 
 { Caso 2 }
 
 var
   dir: string;
 begin
   dir := 'C:\directorio';
   // Preguntamos: ¿Existe el directorio?
   if DirectoryExists(dir) then
   begin
     {
        El directorio existe, entonces,
        hagamos lo que tengamos que hacer.
     }
   end;
 end;