Der Code funktionuiert bei mir 1:1.
Delphi-Quellcode:
var
dir, album, FileName: String;
begin
dir := 'b:\';
album := 'zzz';
FileName := 'test.txt';
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);
Die Datei b:\test.txt wurde in das neu erstellte Verzeichnis b:\zzz verschoben.
Und in dir steht auch das Laufwerk mit komplettem Pfad drin?