borrar archivos y subdirectorios

[manolop]

Hola a todos, estoy todo el dia intentado borrar un directorio que contiene subdirectorios con archivos en delphi y he visto varios ejemplos de codigo en el foro pero no me funciona ninguno. Alguien lo ha hecho personalmente, pq necesito hacerlo y no consigo encontrar algo simple como es la acción pero que me esta dando mas trabajo del que nunca pensé. Muchas gracias de antemano.

[dec]

Hola,

(...) he visto varios ejemplos de codigo en el foro pero no me funciona ninguno.

¿Cuáles has visto? ¿En qué falla cada uno? Y, ya puestos, ¿qué sistema operativo usas y qué versión de Delphi?

[mierda]

varios ejemplos:

Código Delphi [-]
 
RmDir('c:\directorio\');
if IOResult <> 0 then 
     MessageDlg('No he podido borrar el directorio', mtWarning, [mbOk], 0);

otro

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
          var 
            DirInfo: TSearchRec;
            r : Integer;
          begin 
            r := FindFirst('C:\Download\Test\*.*', FaAnyfile, DirInfo);
            while r = 0 do  begin 
              if ((DirInfo.Attr and FaDirectory <> FaDirectory) and 
                  (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then 
                if DeleteFile(pChar('C:\Download\test\' + DirInfo.Name))
                   = false then 
                 {Si no puede borrar el fichero}  
                 ShowMessage('Unable to delete : C:\Download\test\' +
                             DirInfo.Name);
              r := FindNext(DirInfo);
            end; 
            SysUtils.FindClose(DirInfo);
            if RemoveDirectory('C:\Download\Test') = false then 
              {Si no puedes borrar el directorio}
              ShowMessage('Unable to delete dirctory : C:\Download\test');
          end;

si necesitas alguno mas ... por ahi tengo mas

[Neftali [Germán.Estévez]]

Ves a la sección de trucos del ClubDelphi y revisa los números 20, 232, 13 y 246.
Si alguno de ellos no te funciona, dinos cual es el error, lo revisaremos y de paso corregiremos el truco.

Un saludo.

[dicatek]

No sé si me ocurrirá solo a mí, pero el buscador de trucos por número no me funciona, a alguien más le ocurre?

Saludos!

[[seoane]]

El buscador de trucos solo tiene 2 opciones:

Buscar en títulos y autor.
Buscar en títulos, texto y autor.

No hay ninguna opción para buscar por numero, si la hay en cambio para ordenar por número. De todas formas puedes localizar un truco por su numero usando la siguiente dirección

http://www.clubdelphi.com/trucos/index.php?id=N

Donde N es el numero del truco

[Neftali [Germán.Estévez]]

Empezado por dicatek

No sé si me ocurrirá solo a mí, pero el buscador de trucos por número no me funciona, a alguien más le ocurre?

No hay búsqueda por número.
Basta con que ordenes por número (que eso sí lo permite).