Ordner löschen, auch wenn darauf zugegriffen wird

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TForm1.ReadLBFile(Path: string);
var  FileExt: string;
     FileInfo: TSearchRec;
begin
  LBFile.Clear;
  if FindFirst(Path+'*.*',0, FileInfo)=0 then begin
    repeat
      FileExt:= UpperCase(ExtractFileExt(FileInfo.Name));
      if FileExt='.TXT' then
        LBFile.Items.Add(FileInfo.Name);
    until FindNext(FileInfo)<>0;
    FindClose(FileInfo);
  end;
end;

also erstmal ... dieser Code funktioniert bei mir ganz normal und es bleibt auch nichts blockiert
(sicherheitshalber mal mit Delphi 7 getestet)

wobei da ein paar Fragen aufkommen:
- warum nicht gleich nach .TXT suchen?
- und sicher, daß bei dir alle gwünschten Dateien gefunden werden? (also nur die, welche kein einziges Attribut besitzen, wie z.B. faArchive)

Delphi-Quellcode:

procedure ReadLBFile(Path: string);
var FileInfo: TSearchRec;
begin
  LBFile.Clear;
  if FindFirst(Path + '*.txt', faAnyFile and not faDirectory, FileInfo) = 0 then begin
    repeat
      LBFile.Items.Add(FileInfo.Name);
    until FindNext(FileInfo) <> 0;
    FindClose(FileInfo);
  end;
end;