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

Помогите пожалуста. Вот у меня имеется батничек который производит копирование файлов..

@echo off
goto Begin
:Help
@echo off
@echo Чтобы воспользоваться справкой введите copy_ /h

@echo off

goto End

:Helping
@echo off
@echo Использование: copy Путь1 Путь2 [Шаблон(ы)][/R][/H][/S][/A]
@echo Путь1 - Путь к папке источнику
@echo Путь2 - Путь к папке приемнику
@echo С помощью ключей задаются атрибуты файлов:
@echo /R - только для чтения
@echo /H - скрытый файл
@echo /S - системный файл
@echo /A - архивный файл
@echo При отсутствии указанных ключей копируются все файлы

@echo off

goto End

:noparam
set First=c:\1
set Second=c:\2
Goto otkuda

:Begin
if [%1]==[/?] goto Helping
if [%2]==[/?] goto Helping
if [%1]==[/h] goto Helping
if [%2]==[/h] goto Helping
if [%1]==[] goto Help
if [%1]==[den] goto noparam

set First=%1
set Second=%2

shift
shift

set Shablon=
set Sh=
set Atrib=

:Keys
set Sh=%Shablon%
set Shablon=%1 %Sh%

if [%1]==[/S] set Shablon=%Sh%
if [%1]==[/R] set Shablon=%Sh%
if [%1]==[/A] set Shablon=%Sh%
if [%1]==[/H] set Shablon=%Sh%
if [%1]==[] set Shablon=%Sh%

if [%1]==[/?] goto Helping
if [%1]==[/h] goto Helping
if [%1]==[/H] set Atrib=%Atrib%H
if [%1]==[/S] set Atrib=%Atrib%S
if [%1]==[/R] set Atrib=%Atrib%R
if [%1]==[/A] set Atrib=%Atrib%A
if [%1]==[] goto Otkuda

shift
goto Keys

:Otkuda
@echo off

dir %First%>Nul
if not %Errorlevel%==0 @echo Неверно задан адрес копируемого файла
if not [%Errorlevel%]==[0] goto End

set Tekdir=%CD%
Chdir /d %First%>NUL
if not %Errorlevel%==0 set copyfiles=1
if [%copyfiles%]==[1] copy %First% %Second%>NUL
if [%copyfiles%]==[1] goto End

Dir %Shablon% /B/S/A:%Atrib%-D/O:N>C:\tmp.txt
Chdir /D %Tekdir%

for /F %%i in (C:\tmp.txt) do copy %%i %Second%>NUL
del C:\tmp.txt

:End
set First=
set Second=
set One=
set Two=
set Attrib=
set Shab=
set Snablon=
set Tekdir=

Может он и не совсем харашо написан, но я не профессионал по этому делу :) Дело в том что он не копирует подпапочки указаной папки-источника. Файлы копирует из всех подпапочек а сами подпапочки не копирует. Помогите мне пожплуста это исправить.

Модерирует : gyra, Maz
Widok (10-03-2009 12:39): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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