Filemanager Fehler - Lösung gefunden?

[DeddyH]

Dann will ich auch noch meinen Senf dazugeben

Delphi-Quellcode:

procedure ListFileDir(const Path: string; const DirFileView: TListView);
var
  SR: TSearchRec;
  dview: TListItem;
begin
  if FindFirst(IncludeTrailingPathDelimiter(Path) + '*.*', faAnyFile, SR) = 0 then 
  begin
    repeat
      if (SR.Name <> '.') and (SR.Name <> '..') then
        if (sr.Attr and faDirectory = faDirectory) then
        begin
          dview:= DirFileView.Items.Add;
          dview.ImageIndex:= 0;
          dview.Caption:= SR.Name;
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;