RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Backup?


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Alex G.
To : Basil A. Sidorov
Subj : Backup?
> > call SysFileTree('\Откуда\*','DirList.','DSO')
> do i=1 to DirList.0
> '@replace /u' DirList.i'\* Куда'
> '@replace /a' DirList.i'\* Куда'
> end
>
> В принципе, можно и всё сделать на рексе: SysFileTree(), parse, второй SysFileTree() и SysCopy() по мере надобности.

Ага, Спасибо.Вот что пока получилось:
/* REXX */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

call SysFileTree 'd:\tmp\*.*','DirList','DSO'
do i=1 to DirList.0
say 'MYPATH='DirList.i
'replace 'DirList.i'\*.* e:\TMP /U'
'replace 'DirList.i'\*.* e:\TMP /A'
end

Сейчас буду доделывать восстаналение структуры директорий в backup volume...




Mon 03 Dec 2001 18:39 Mozilla/4.61 [ru] (OS/2; I)



Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.