Цитата R.i.m.s.k.y.:
Procedure backUp();
begin
ChangeCaption('BackUp')
If DirExists (DriveLetter +':\'+'Settings\Client\') then copyfiles(DriveLetter +':\'+'Settings\Client\', DriveLetter +':\'+'Backup\'+GetDateTimeString('YYYYMMDD_hh:nn:ss', '-', '-')+'\Settings\Client\');
if DirExists (DriveLetter +':\'+'utils\') then copyfiles(DriveLetter +':\'+'utils\', DriveLetter +':\'+'Backup\'+GetDateTimeString('YYYYMMDD_hh:nn:ss', '-', '-')+'\utils\');
end; »
|
Данный код отлично работает, если бэкапятся
мелкие файлы. Но когда файлы большие, то тогда создается
2 (две) папки: 'Backup\
2012-02-20_12-10-10\Settings\Client\' и 'Backup\
2012-02-20_12-11-22\utils\',
а нужно, чтобы папки
utils\ и
Settings\Client\ создавались в одном бэкапе
'Backup\2012-02-20_12-10-10\Settings\Client\' и '
Backup\2012-02-20_12-10-10\utils\'
Может можно как-то в начале процедуры задать для папки бэкапа переменную (на 'YYYYMMDD_hh:nn:ss'), а потом ниже ее подставлять, примерно так:
...+'Backup\'+
'переменная_с_именем_папки_с_датой'+'\Settings\Client\');
Или есть более оптимальный выход?
Подскажите, пожалуйста, как оптимизировать код.
