MP3s sortieren

[Spasskeks]

Moin,moin.

Ich hab mir ein kleines Tool programmiert, was meine MP3s sortieren kann. Hier der Code:

Delphi-Quellcode:

begin
n := 0;
if Findfirst(Edit1.Text+'\*.mp3',0,sr) = 0 then
 begin
  repeat
   filename := sr.Name;
   p := pos('-',filename);
   l := length(filename);
   delete(filename,(p-1),(l-p+2));
   if DirectoryExists(Edit1.Text+'\'+filename) then
    copyfile(PChar(edit1.Text+'\'+sr.Name),PChar(edit1.Text+'\'+filename+'\'+sr.Name), true)
   else
    begin
    mkdir(edit1.Text+'\'+filename);
    copyfile(PChar(edit1.Text+'\'+sr.Name),PChar(edit1.Text+'\'+filename+'\'+sr.Name), true);
    end;
   n := n + 1;
   Label2.Caption := inttostr(n);
  until FindNext(sr) <> 0;
 Findclose(sr);
 showmessage('Fertig, alle MP3s sind sortiert!'+#10+#13+'Einen schönen Tag noch =)');
 end
else
 showmessage('Es wurden keine MP3s im angegebenen Verzeichnis gefunden!');
end;

So, funzt auch alles :-D das einzige Problem, was ich hab, ist folgendes: Ich hab das Proggy auf nen Testordner mit 4 MP3s losgelassen, alles wunderbar sortiert, genau so, wie ich es mir vorgestellt hatte. Danach hab ich es dann auf meinen zu sortierenden Ordner mit ca 100 MP3s losgelassen. :roll: Es hat auch alles sortiert, bloß ist es dabei abgestürzt :(

Vielleicht hat ja jemand ne Idee, was ich noch ändern/einbauen muss, damit es auch mit mehr als bloß 4 MP3s fertig wird :lol:

Und, weiß jemand, wie man Dateien mit Delphi verschieben kann??? :?:

Soweit erstmal, MFG Henrik :hi:

[Matze]

Verschieben geht auf jedenfall mit MoveFile, ob das aber über mehrere Laufwerke hinweg geht, glaube ich nicht, irgendsowas stand mal in der OH.

Zu deinem anderen Problem kann ich noch nichts sagen.


Edit: Was verstehst du eigentlich unter "sortieren"? Nach dem Dateiname? Das würde ja nicht viel bringen. :gruebel:

[Spasskeks]

Thx schonmal für das movefile :)

Das Tool sortiert die MP3s nach Interpret, d.h. die Dateinamen müssen folgendes Format haben Interpret - Titel.mp3 Das Tool "schneidet" den Interpret aus dem Dateinamen raus, guckt ob ein entsprechendes Verzeichnis existiert, wenn nicht wird eins erstellt, und kopiert die Datei ins Verzeichnis.