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
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.
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
Und, weiß jemand, wie man Dateien mit Delphi verschieben kann???
Soweit erstmal, MFG Henrik
