🚀 go-pugleaf

Nik,

If you do a findFirst on your "empty" directory you'll probably find that it
isn't empty after all.  I don't know why but the folders sometines have
garbage folders/files in them which are hidden from view.  I went through
exactly the same problem as you several weeks ago.

In the end I created the following routine, which empties the directory
before removing it.

If you use it, you have to be sure the directory is empty.  I only use it on
temp files, which I note is the specific example you are using.

procedure DeleteDir(Dir:String);
var sr:TSearchRec;
begin
 if findfirst(dir+'*.*', faAnyFile, sr)=0 then
    DeleteFile(Dir+sr.Name);
 while FindNext(sr)=0 do
    DeleteFile(Dir+sr.Name);
  FindClose(sr);
 RemoveDir(dir);
end;

Regards,

Mark

Nik <nikb2002@nospam.com> wrote in message
news:3de21f0e$1@newsgroups.borland.com...
>
> "Rick Betting" <rick@ATonlinegroepDOT.nl> wrote:
> >
>
>RemoveDir(IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)
)
> >+ 'Temp');
>
> ok, IncludeTrailingBackslash doesn't help me! it is similar to
> IncludeTrailingPathDelimiter.
>
> Nik B.