[R.i.m.s.k.y.]

vitl,

Код:

Procedure backUp();
var datetime : string;
begin
ChangeCaption('BackUp');
datetime := GetDateTimeString('YYYYMMDD_hh:nn:ss', '-', '-');
If DirExists (DriveLetter +':\'+'Settings\Client\') then copyfiles(DriveLetter +':\'+'Settings\Client\', DriveLetter +':\'+'Backup\'+datetime +'\Settings\Client\');
if DirExists (DriveLetter +':\'+'utils\') then copyfiles(DriveLetter +':\'+'utils\', DriveLetter +':\'+'Backup\'+datetime +'\utils\');
end; »