Ощущается как +4

3 м/с юго-зап..

Новая тема

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

Список тем

задача - множественное копирование файла.

Нужен совет (поиск решения проблемы. не для купли-продажи)

С друзьями на NN.RU

У вас пока нет друзей на NN.RU, поэтому ссылка на тему не может быть отправлена.

Воспользуйтесь поиском, чтобы найти новых друзей.

В социальных сетях

Deathmaker

11.10.2011

Дано:
1) имеем файл xxx.yyy
2) имеем множество папок (числом под сотню) с вложенными в них папками в разном количестве и глубиной вложения

Требуется:
чтобы файл xxx.yyy появился в каждой из этих папок.

Сваяйте мне скриптик плз? Или ткните в прогу, делающую сие.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Петропавел

11.10.2011

если в именах файлов нет пробелов и прочей ереси -

for /f "tokens=* usebackq" %%i in (`dir /b /s /a:d *`) do (
copy cool_file.txt %%i
)

(cool_file.txt поменять на имя исходного файла)

Ща подумаю, как обойтись если есть пробелы и всякие буквы...

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Петропавел

11.10.2011

Просто %%i в кавычки взять:

for /f "tokens=* usebackq" %%i in (`dir /b /s /a:d *`) do (
copy cool_file.txt "%%i"
)

Upd - это виндовый бат-ник, тестировал в XP

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Петропавел

11.10.2011

еще проще:

for /r %%i in (.) do (
copy cool_file.txt "%%i"
)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Deathmaker

11.10.2011

результат

К сообщению прикреплен файл:
40913956-bezimjnniy.bmp (15 Kb) Скачать файл

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Петропавел

11.10.2011

Это точно мне? У меня не vbs, а bat

А вот что оно должно ещё и на \\server\share работать - хз, не проверял ))

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Петропавел

11.10.2011

for /r \\192.168.13.3\hdd1\music %%i in (.) do (
copy coolfile.txt "%%i"
)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Deathmaker

11.10.2011

каталоги исправно пролистывает, но пишет "не удается найти указанный файл", хотя файл лежит рядом с батником
имя файла из 8 знаков :о)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

хрен с горы

11.10.2011

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Петропавел

11.10.2011

Хм. Так, конечно, не очень понятно, он не может найти файл-источник или файл-назначение.
Если первое, тогда тупо поправить

copy имяфайла ...
на
copy путь_к_файлу\имяфайла ...

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

s1aw!ck

11.10.2011

. :)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Deathmaker

11.10.2011

О! Сенькс!

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Петропавел

11.10.2011

:-)

inspired by
www.rsdn.ru/article/winshell/batanyca.xml

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

s1aw!ck

11.10.2011

Попробуй ишшо ниже скриптик мой)) Там без черных окошок :-)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Deathmaker

11.10.2011

да мне и этот годится
пасиб

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

s1aw!ck

11.10.2011

Например так, если сценарием:

Set fso = CreateObject(″Scripting.FileSystemObject″)
rootfolder = ″путь к корневой папке″
filename = ″имя файла″
CopyFiles fso.GetFolder(rootfolder)
Sub CopyFiles(folder)
For Each subfolder in folder.SubFolders
fso.CopyFile rootfolder & ″\″ & filename , subfolder & ″\″ & filename , true
CopyFiles subfolder
Next
End Sub

PS: Не тестил, но работать должен:)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

s1aw!ck

11.10.2011

Да, при этом файлик должен лежать в корне папок.
Если это не так, то:

Set fso = CreateObject(″Scripting.FileSystemObject″)
rootfolder = ″путь к корневой папке вложенных папок″
filefolder = ″путь к папке где лежит файл″
filename = ″имя файла″
CopyFiles fso.GetFolder(rootfolder)
Sub CopyFiles(folder)
For Each subfolder in folder.SubFolders
fso.CopyFile filefolder & ″\″ & filename , subfolder & ″\″ & filename , true
CopyFiles subfolder
Next
End Sub

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Петропавел

11.10.2011

Слушай, а powershell - это примерно так же, или ещё каким-то совсем иным образом?)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

s1aw!ck

11.10.2011

Мне powershell не доводилось поюзать. А ознакомление чет пока откладываю из за недостатка времени. Так что пока ниче конкретного не скажу, кроме как что это на первый взгляд более функциональный инструмент чем vbs.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Independent_

11.10.2011

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

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

s1aw!ck

11.10.2011

Эээ, а разве это не рекурсия у меня? о_О

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Independent_

11.10.2011

сорри, не доглядел :)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

BrainFucker

11.10.2011

find ./ -type d -exec cp xxx.yyy "{}/" \;

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Новая тема

Список тем

Последние темы форумов

Форум Тема (Автор) Последний ответ Ответов

Техно-форум 3G мегафон перестала работать - Алексей Владимирович! 28.04.2025 в 21:11:55 10

Мобильный форум Есть ли безлимитные тарифы? - V.Bond 28.04.2025 в 10:57:36 10

Интернет-НН Пользуется ли кто-то домашним интернетом Мегафона? - Мильгаф 23.04.2025 в 18:31:01 18

Технотуса ПАС в акустике - REPTe 06.02.2025 в 13:52:11 1

Техно-объявления мониторы за самовывоз - jurok69 28.10.2024 в 09:15:22 10

Объявления на НН.РУ - Техника

Добавить объявление

Материнские платы на запчасти и не только

Материнские платы на запчасти и не только Материнские платы и другие комплектующие Отправка в регионы после оплаты. Транспортной...
Цена: 3 000 руб.

Сетевой фильтр APC Surge Arrest

Сетевой фильтр APC Surge Arrest для радиолюбителя.и не только Отправка в регионы после оплаты. ЦЕНА 3000 руб. В рабочем состоянии....
Цена: 3 000 руб.

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9 Отправка в регионы после оплаты. Продаются сразу обе. Цена за обе 2000 руб....
Цена: 1 000 руб.

Принтер лазерный HEWLETT PACKARD HP-6L

Принтер лазерный HEWLETT PACKARD HP-6L Отправка в регионы после оплаты. 3штуки БУ. Внешний вид из магазина простояли на складе...
Цена: 4 500 руб.