vollständiger Dateiname mit Pfad ?

[Hansa]

Hi,

ich liste mir alle Dateinamen auf. Aber das Verzeichnis kriege ich nicht angezeigt, also z.B.: '\programm\test\datei.txt'. Ich erhalte nur 'datei.txt'.

[Matze]

Öffnest du die per OpenDialog oder anders?

[Hansa]

Nein, von Hand zu Fuß mit FindFirst usw.

[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;