Einzelnen Beitrag anzeigen

kingflo

Registriert seit: 21. Jun 2004
Ort: Hamburg
502 Beiträge
 
Delphi 7 Professional
 
#1

Ordnerinhalt mit Pfadangabe zu ListBox

  Alt 20. Dez 2004, 19:49
Hallo ich möchte gerne den Inhalt eines Ordners in einer ListBox haben (aber mit Pfad)
z.B der Ordner C:\Ordner
ich habe zu dem Thema folgendes Beispiel bei euch gefunden

Code:
var
  s, path: string;
  i  : integer;
  stl : tstringlist;
begin
   path:=DirectoryDialog.Directory+'\*.*'#0;
   s := path;

   ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
   listbox1.ItemIndex:=0;

  stl:=tstringlist.Create;
  try
    for i := 0 to listbox1.items.count - 1 do
    begin
      stl.Add(listbox1.items.strings[listbox1.itemindex]);
      listbox1.ItemIndex:=listbox1.ItemIndex+1;
    end;
    listbox1.Items.CommaText:=stl.commatext;
  finally
    stl.Free;
  end;
end;
Allerdings ist es so, dass wenn ich es so mache nicht den Pfad mit in der ListBox habe sondern nur die datein
z.B
test.html
text.txt
document.doc

aber ich möchte gerne, dass auch der Pfad davor steht
also
C:\Ordner\test.html
usw...

kann mir da jemand helfen??
Florian Gilde
  Mit Zitat antworten Zitat