home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / BAKFILE.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  340 b   |  17 lines
  1.  
  2. {rename file.xxx to file.bak}
  3. {needs #include <rempath.inc>}
  4. procedure backup_file(name: anystring);
  5. var
  6.    fd1,fd2: file;
  7.    bakname: anystring;
  8. begin
  9.    bakname := remove_ext(name) + '.BAK';
  10.    assign(fd1,bakname);
  11.    {$i-} erase(fd1); {$i+}
  12.    if ioresult <> 0 then ;
  13.    assign(fd1,name);
  14.    rename(fd1,bakname);
  15. end;
  16.  
  17.