Ordnername in listbox aufzählen

[EvilDragon]

@hboy

danke das hat mir teils weitergeholfen... das einzige prob ist wenn ich hier:

Delphi-Quellcode:

      for i:=0 to listbox2.Items.Count+1 do begin
      if listbox2.Selected[i] = true then begin
       dir := dir+listbox2.Items.Strings[i];
       Edit2.Text := dir;
       MediaPlayer1.FileName := Edit2.Text;
       break;
      end;
      end;

einen eintrag anklicke spielt er ihn auch ab, aber wenn ich noch mal drauf klicke auf einen anderen eintrag hängt er an z.b. 'ordner/unterordner/01.mp3'noch dies an '02.mp3' aber warum weiß ich, da ja das 'dir' (var für verzeichnis) ja geändert wurde... mal schauen ob ich dat hinbekomme