Prueba esto, ya se publicó en este foro y a mí me ha ido bien
------------
procedure TMain.RmDirectorio(directorio: string);
var
r: integer;
DirInfo: TSearchRec;
begin
r := FindFirst(directorio+'*.*', FaAnyfile, DirInfo);
while r = 0 do
begin
if ((DirInfo.Attr AND FaDirectory <> FaDirectory) AND (DirInfo.Attr AND FaVolumeId <> FaVolumeID)) then
DeleteFile(pChar(AppPath+'temp\tmpcurso\' + DirInfo.Name));
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
RemoveDirectory(PChar(directorio));
end;
----------------
Un Saludo
|