|
Registriert seit: 21. Jun 2002
602 Beiträge
|
16. Jul 2002, 10:14
Hallo Thomas,
zum Verschieben kannst du auch ganz einfach RenameFile() aus der SysUtils verwenden:
Code:
function MoveAFile(FromPos, ToPos: String): Boolean;
begin
if (ToPos[Length(ToPos)] <> '\') then
ToPos := ToPos + '\';
Result := RenameFile(FromPos, ToPos + ExtractFileName(FromPos));
end;
MfG,
d3g
-- Crucifixion?
-- Yes.
-- Good. Out of the door, line on the left, one cross each.
|