como borrar una carpeta con todos los archivos que contiene.

[danyfebrero]

Hola a todos:
Necesito borrar una carpeta que contiene archivos y al tratar de borrarlas me da un error? Existe alguna manera de borrar la carpeta aunque contega archivos? Cual sería? Sino como podria vaciar la carpeta para luego borrarla.
Saludos y gracias de antemano
Dany

[Casimiro Notevi]

Abajo de esta página, al final del todo, tienes algunos enlaces que pueden servirte.

¡¡¡Recuerda que puedes hacer búsquedas en los foros!!!

[danyfebrero]

gracias casimiro
de todas formas encontré este codigo por roman

Código Delphi [-]
    if DirectoryExists(directorio) then
      begin
        extension:='*.*';
        archivosaborrar:=directorio+extension;
        FileInfo.Wnd := Handle;
        FileInfo.wFunc := FO_DELETE;
        FileInfo.pFrom :=  PChar(archivosaborrar);
        FileInfo.pTo := nil;
        FileInfo.fFlags := FOF_NOCONFIRMATION;

        ShFileOperation(FileInfo);

        RmDir(directorio);
      end;

me funcionó perfecto gracias nuevamente.