MoveFile macht einfach nix(ohne Fehlermeldung)

**Flippo**

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.

zusammenfalten · markieren

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

MoveFile macht einfach nix(ohne Fehlermeldung)

MoveFile macht einfach nix(ohne Fehlermeldung)

Forumregeln