Командная строка, батники, сценарии (bat, cmd) - [15] :: Программы

Подскажите, как в скрипте задать список масок файлов для их последующего копирования. Нашел одно решение, но оно мне не очень нравится.
Cкрипт называется copy_base.cmd и копирует в нужный каталог базы 1С.

Код:

@echo off
if /I exist F:\1c-buch\ goto :_menu
@echo.
@echo Ошибка! Скрипт необходимо запускать непосредственно на сервере.
goto :_end

:_menu
cls
@echo.
@echo ****************************************************************
@echo.
@echo 1. Сделать копию базы 1С Бухгалтерский
@echo 2. Сделать копию базы 1С Торговля
@echo 3. Сделать копию базы 1С Бухгалтерский учет 2
@echo 4. Выход
@echo.
@echo ****************************************************************
@echo.
@echo Введите 1,2,3 или 4 и нажмите ввод

set /p reply=
if /i "%reply%"=="1" goto :_buh
if /i "%reply%"=="2" goto :_predpr
if /i "%reply%"=="3" goto :_uc
if /i "%reply%"=="4" goto :_end
goto :_menu

:_buh
cls
set Dest=F:\1c-buh\copy\BUH
set Sour=F:\1c-buh\1cv77\Buid2004
set Prefix=buh-
@echo.
@echo Будет скопирована база 1С Бухгалтерский учет из папки %Sour% в папку %Dest%
@echo Внимание! Все пользватели должны выйти из программы 1С!
@echo Введите "y" для начала копирования или "n" для возврата в меню
@echo.
set /p reply=
if /i "%reply%"=="y" goto :_begin
goto :_menu

:_predpr
cls
set Dest=F:\1c-buh\copy\PREDPR
set Sour=F:\1c-Predpriyatie\1cv77\id2003
set Prefix=predpr-
@echo.
@echo Будет скопирована база 1С Торговля из папки %Sour% в папку %Dest%
@echo Внимание! Все пользватели должны выйти из программы 1С!
@echo Введите "y" для начала копирования или "n" для возврата в меню
@echo.
set /p reply=
if /i "%reply%"=="y" goto :_begin
goto :_menu

:_uc
cls
set Dest=F:\1c-buh\copy\UC
set Sour=F:\1c-uch_center\uch\UchCentr_DB_77\1SBDB
set Prefix=uc-
@echo.
@echo Будет скопирована база 1С Бухгалтерский учет из папки %Sour% в папку %Dest%
@echo Внимание! Все пользватели должны выйти из программы 1С!
@echo Введите "y" для начала копирования или "n" для возврата в меню
@echo.
set /p reply=
if /i "%reply%"=="y" goto :_begin
goto :_menu

:_begin

rem *.DBF
rem *.CDX
rem 1CV7.CFG*
rem 1CV7.MD*
rem 1CV7.DD*
rem 1CV7.SPL*
rem 1CV7.ORD*
rem *.SPL*
rem USRDEF\USERS.USR*

if /I not exist %Sour%\1SJOURN.DBF goto :_error
attrib -r %Sour%\1SJOURN.DBF
:_block
attrib +r %Sour%\1SJOURN.DBF
for /f "tokens=1,2 delims=:" %%i in ('attrib %Sour%\1SJOURN.DBF') do set temp_string=%%i
for /f "tokens=1,2,3,4,5,6 delims=ASHC " %%i in ('echo %temp_string%') do if /I NOT "%%i"=="R" goto :_block
for /f "tokens=1,2,3,4,5,6 delims=:./ " %%i in ('"date/t&&time/t"') do if "%%k"=="" (set t=%%i%%j) else set ymd=%%l%%k%%j
set place=%Dest%\%Prefix%%ymd%_%t%\
md %place%

for /f "tokens=1,2 delims= " %%i in (copy_base.cmd) do if "%%i"=="rem" "xcopy" %Sour%\%%j %place%%%j

attrib -r %Sour%\1SJOURN.DBF
goto :_end

:_error
@echo.
@echo С базой что-то не так. Не удалось найти файл 1SJOURN.DBF
goto :_end

:_end
@echo.
@echo Работа скрипта закончена.
@echo Нажмите любую клавишу.
@echo.
pause>nul

выделенная часть кода задает маски файлов и копирует их в нужный каталог, но может есть более простое решение, чтобы можно было легко добавлять список масок и при этом, чтобы скрипт не читал сам себя.

Модерирует : gyra, Maz
Widok (19-11-2007 12:08): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118