Progressbar beim Dateikopieren....

[Killerloop]

Das ganze funktioniert ziemlich einfach: Ich gebe ein es sollen 100 MB Mp3s kopiert werden. jetzt sucht er zufällige MP3s raus und und kopiert die mit diesem befehl:

Copyfile ((pchar(datei)),(pchar(selectdir.directory+'\'+ExtractFileName(datei))),false); bevor eir eine Datei kopieert vird gecheckt ob der auch nicht über die 100 MB kommt. Wenn die datei zu groß ist sucht er eine andere und versucht es nochmal. Sollte die auch zu gross sein dann versucht er noch eine andere. Nach ca 50 versuchen gibt er auch. So wichtig ist es dann doch nicht das der MP3 Stick bis zum letzten MB voll wird.

Ich weiss, alles ziemlich Anfängermässig, aber mir ist nichts eleganteres eingefallen...