renff.dpr

来自「自动压缩备份套件,帮助你自动生成备份文件. 目的:方便地按需要备份文件.希望可」· DPR 代码 · 共 49 行

program RenFF;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure showhelp;
var
  s: string;
begin
  s := format('%s filename [datetimeformatstr]'#13#10'example: %0:s aa.txt yy-mm-dd ', [extractfilename(paramstr(0))]);
  writeln(s);
end;

var
  s, serr, sf: string;
begin
  if ParamCount = 0 then
  begin
    showhelp;
    exit;
  end;

  s := '';
  serr := '';
  sf := '';

  s := paramstr(1);
  if ParamCount >= 2 then
  begin
    sf := ParamStr(2);
    sf := formatdatetime(sf, now);    
  end;

  if fileexists(s) then
  begin
    if sf = '' then
      sf := formatdatetime('yymmdd_', now);
    if RenameFile(s, format('%s%s', [sf, extractfilename(s)])) = false then
      serr := SysErrorMessage(getlasterror);
  end else
    serr := 'File not exists.';
  if serr = '' then
    s := 'Success'
  else
    s := serr;
  Writeln(s);
end.