vollständiger Dateiname mit Pfad ?

[Matze]

Delphi-Quellcode:

const
  FileExt = '*.*';  
var
  SearchRec : TSearchRec;
  Dir: string;
begin
  ListBox1.Clear;

  Dir := IncludeTrailingBackslash('c:\Irgendwas'); //<========= !!!
  ListBox1.Items.BeginUpdate;
  if FindFirst(Dir + FileExt, faAnyFile, SearchRec) = 0 then
  try
    ListBox1.Items.Add(SearchRec.Name);
    while FindNext(SearchRec) = 0 do
      ListBox1.Items.Add(SearchRec.Name);
  finally
    FindClose(SearchRec);
  end;
  ListBox1.Items.EndUpdate;