Irgendwie traurig, ich schlag mich den ganzen Nachmittag mit so einem trivialen Problem rum. Warum gibt es nicht einfach eine Standard Funktion, womit man ein Verzeichnis in ein anderes verschieben kann?
Das ist echt zum Mäuse melken.
Aufruf:
Delphi-Quellcode:
var
i:integer;
s:TStringList;
h1, h2:string;
begin //alles in TempDownloadDir nach DownloadDir kopieren, danach TempDownloadDir löschen
s:=TStringList.Create;
ListSubDirs(TempDownloadDir, s);
h1:=TempDownloadDir;
//letzten Backslash abschneiden
Delete(h1, Length(h1), 1);
h2:=DownloadDir;
//letzten Backslash abschneiden
Delete(h2, Length(h2), 1);
try
for i:=0 to s.Count-1 do MoveDir(h1+s[i], h2+s[i]);
finally
s.Free;
end;
DeleteFile(h1);
end;
Das MoveDir funktioniert (getestet) zb. so MoveDir(h1, h2); einwandfrei...Nur nicht in der Schleife mit der StringListe...
Ich mache da morgen weiter und werd mal schaun, was überhaupt in der Liste drinne steht. Kein Bock jetzt mehr.
Danke für die Hilfe DaddyH.