RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение
Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас
Тема:
> > > 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... > > >
_, _, _, _, _ _ _,_
(_ | / \ |\ | | |_/
, ) | , \ / | \| | | \
~ ~~~ ~ ~ ~ ~ ~ ~
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.