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
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.