Hallo,
habe mal wieder ein für mich unlösbares Problem:
Die Prozedur soll:
- den Artist einer im OpenDialog1 ausgewählten Mp3Datei erkennen(klappt)
- im selben Verzeichnis einen Ordner erstellen der so heisst wie der Artist (klappt auch)
- die Datei in den Ordner verschieben (klappt nicht)
Komischer weise klappt es wenn ich den Ordner nach dem Genre benenne das aus einem Array rausgesucht wird. Wenn ich Artist oder Title nehme klappt es nicht mit dem Verschieben.
Wenn ich an den Ordnernamen hinter Artist noch etwas anfügen will geht das auch verloren und bei genre nicht deshalb vermute ich das es mit den Wert den ich als Artist kriege zusammenhängt.
Delphi-Quellcode:
TID3Tag = record
ID: string[3];
Titel: string[30];
Artist: string[30];
Album: string[30];
Year: string[4];
Comment: string[30];
Genre: Byte;
end;
procedure Sortieren;
var Verzeichnis,Dateiname,Oldname,Newname:string;
begin
if form1.OpenDialog1.Execute then
begin
Verzeichnis:=extractfilepath(form1.opendialog1.filename);
Dateiname:=extractfilename(form1.opendialog1.filename);
with readID3Tag(Verzeichnis+'\'+Dateiname) do
begin
if (DirectoryExists(Verzeichnis+'\'+Artist)=False) then
begin
createDir(Verzeichnis+'\'+Artist);
end;
Oldname:=Verzeichnis+'\'+Dateiname;
Newname:=Verzeichnis+'\'+Artist+'\'+Dateiname;
movefile(PChar(Oldname),PChar(Newname));
end;//With File do
end;//Open Dialog
end;
Vielen dank im Voraus