ich übergeb nen filename und ein drectory an die prozedur (es ist sicher das das dir mit \ endet, wird vor der prozedur überprüft). In der Prozedur steht in album der albumstitel.
Delphi-Quellcode:
if not DirectoryExists (dir + album) then CreateDir (dir + album); // hab den code grade ausm gedächtniss geschrieben, weiß nimmer obs createdir hieß oder net, das erstellen von verzeichnissen jedenfalls klappt
RenameFile (dir + FileName, dir + album + '\' + filename);