Quick and easy way to move a file 16 bit compatible

Quick and easy way to move a file 16 bit compatible



var thefile:file;
    oldpath,newpath:string;
begin
  oldpath:='c:\autoexec.bat';
  newpath:='c:\test\autoexec.bat';
  assignfile(thefile,oldpath);
  rename(thefile,newpath);
end;