Borrado de un directorio
Holas amigos.
Mi problema es el siguiente cunado cierro una aplicacion tengo que borrar el contenido de un directorio y todo lo que hay dentro de él, como lo tengo hecho me borra el contenido del directorio pero el directorio no se borra, el error que me da es el I/O Error 145, el cual significa que el directorio esta vacio, tampoco hay archivos ocultos, aqui os muestro el procedimiento:
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:integer;
diractual:boolean;
begin
Close;
//Borramos los archivos temporales usados
Deletefile(PChar(contmp));
Deletefile(PChar(temporalwpa));
Deletefile(PChar(estilotmp));
//Borramos de la carpeta plantillaswpa el archivo estilo.css si existe
if FileExists(ExtractFilePath(Application.ExeName)
+ 'plantillaswpa\estilo.css') then
begin
DeleteFile(PChar(ExtractFilePath(Application.ExeName)
+ 'plantillaswpa\estilo.css'));
end;
if DirectoryExists(PChar(ExtractFilePath(Application.ExeName)
+'plantillaswpa\imgs')) then
begin
for i:=1 to ndiapos do
begin
deletefile(PChar(ExtractFilePath(Application.ExeName)
+ 'plantillaswpa\imgs\' + 'tmp' + IntToStr(i) + '.jpg'));
end;
diractual:=SetCurrentDir(ExtractFilePath(Application.ExeName)
+ 'plantillaswpa');
RmDir(ExtractFilePath(Application.ExeName)
+ 'plantillaswpa\imgs\');
end;
end;
Gracias por adelantado
|