Filemanager Fehler - Lösung gefunden?

[himitsu]

Zitat von DeddyH:

Dann will ich auch noch meinen Senf dazugeben

Delphi-Quellcode:

procedure ListFileDir(const Path: String; DirFileView: TCustomListView);
var
  SR: TSearchRec;
begin
  DirFileView.Items.BeginUpdate;
  try
    if FindFirst(IncludeTrailingPathDelimiter(Path) + '*.*', faAnyFile, SR) = 0 then 
    begin
      repeat
        if (SR.Name <> '.') and (SR.Name <> '..') 
            and (sr.Attr and faDirectory <> 0) then 
          with TListView(DirFileView).Items.Add do
          begin
            ImageIndex := 0;
            Caption := SR.Name;
          end;
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
  finally
    DirFileView.Items.EndUpdate;
  end;
end;

Wobei '.' und '..' doch Ordner sind und da er doch wohl nur die Dateien haben möchte (oder hab ich das falscht verstanden?), kann man diese Ordner ignorieren und muß natürlich auf "Nicht-Verzeichnis" prüfen:

Delphi-Quellcode:

procedure ListFileDir(const Path: String; DirFileView: TCustomListView);
var
  SR: TSearchRec;
begin
  DirFileView.Items.BeginUpdate;
  try
    if FindFirst(IncludeTrailingPathDelimiter(Path) + '*.*', faAnyFile, SR) = 0 then 
    begin
      repeat
        if sr.Attr and faDirectory = 0 then 
          with TListView(DirFileView).Items.Add do
          begin
            ImageIndex := 0;
            Caption := SR.Name;
          end;
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
  finally
    DirFileView.Items.EndUpdate;
  end;
end;