hi. das ganze soll ein kleiner ID3-TAG Ausleser werden, der die Musikdateien nach Interpret sortiert.
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var
t: Tid3Tag;
filestream, f2: TFileStream;
begin
f1 := TStringList.Create;
tray.Visible := true;
//form3.Visible := false;
tray.BalloonHint := 'Der Vorgang wird durchgeführt...';
tray.ShowBalloonHint;
Memo1.Lines.BeginUpdate;
Memo1.Lines.Add('Suche nach Dateien...');
list.Clear;
c := 0;
list.Clear;
listfiles(list);
Memo1.Lines.Add(IntToStr(list.Count) + ' MP3-Dateien gefunden!');
Memo1.Lines.Add('Starte Sortierung...');
c := 0;
while c < list.Count do begin
t := readid3Tag(list[c]);
Memo1.Lines.Add('Datei gefunden: ' + list[c]);
try
MkDir('.\' + t.Artist);
except
//Do nothing
end;
Memo1.Lines.Add('Kopiere Datei...');
CopyFile(Pchar('.\' + list[c]), Pchar('.\' + t.Artist + '\' + list[c]), true);
Inc(c);
deletefile('.\' + list[c]);
end;
Memo1.Lines.Add('Process done!');
tray.Visible := false;
//form3.Visible := true;
Memo1.Lines.EndUpdate;
end;