habs wie folgend gelößt:
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
var x,zahl : Integer;
begin
dir := ExtractFilepath(ParamStr(0))+'mp3\eigene_mp3s'; //direkter Pfad vom Programm
for x := 01 to 99 do begin
zahl := x;
verzeichnis[x] := dir+'\'+IntToStr(zahl);
if DirectoryExists(verzeichnis[zahl]) then
Edit1.Text := verzeichnis[zahl]
else
ForceDirectories(verzeichnis[zahl]);
exit;
end;
end;
ich glaub das macht das was ich denke *g*
also folgendes:
schaut ob ordner 01 ist wenn nicht dann erstellt er und schreibt das ergebnis ins edit
leider das mit listfeld bekomme ich net hin...
hat jemand vielleicht ein beispielcode??? (was ich mom hab reicht für meine bedürfnisse)
danke
