Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Metodo para borrar directorio (https://www.clubdelphi.com/foros/showthread.php?t=12705)

VolaRe 25-07-2004 11:57:30

Metodo para borrar directorio
 
Hola de nuevo,
Necesito una funcion para borrar directorio, estoy usando RmDir(), pero esa funcion la saqué de Turbo Pascal, y he mirado en la ayuda de delphi y no he encontrado ninguna, no se si no he buscado bien o no hay otra (yo creo que no he buscado bien), pero ya jarto de no encontrar nada, me he decidido preguntar en el foro.

Gracias de ante mano.

cbrrr 25-07-2004 12:13:52

Mírate en la ayuda la función RemoveDir, aunque RmDir sigue siendo válida

marcoszorrilla 25-07-2004 12:54:54

Quizás te interese hacer la prueba con esta función, que elimina un directorio y todos los subdirectorios que tuviere:

Código Delphi [-]
procedure Tselecdir.borrarClick(Sender: TObject);
   procedure borradentro(directorio:string);
   var
     n:integer;
     Rbusqueda : TSearchRec;
   begin
     n := FindFirst(directorio+'\*.*',faanyfile, Rbusqueda);
     while n=0 do begin
        if (rbusqueda.Name <> '..') and
            (rbusqueda.Name <> '.') then begin
            if (rbusqueda.Attr = faDirectory) then begin
                borradentro(directorio+'\'+rbusqueda.Name);
                rmdir(directorio+'\'+rbusqueda.Name);
            end else
                deletefile(directorio+'\'+Rbusqueda.name) ;
         end;
        n := FindNext(Rbusqueda);
     end;

   end;
var
  diractivo:string;
begin
    //hago el de defecto el padre, sino.. error I/O16
   chdir('..');
   GetDir(0,diractivo);
   borradentro(DirectLB.directory );
   rmdir(DirectLB.directory);
   DirectLB.directory := diractivo;
end;

La Función creo que fue creada por Juan Matesanz.

Un Saludo.

VolaRe 25-07-2004 16:14:41

que significa '..' y '.', te agradeceria que me aclarases esta duda

__marcsc 25-07-2004 16:29:52

Hola

. y .. son, en la mayoría de sistemas operativos, referencias al directorio actual y al padre del directorio actual, respectivamente

Saludos!


La franja horaria es GMT +2. Ahora son las 03:59:20.

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