Копирование файлов в цикле с ограничением 10

@Cool34011 · Регистрация: 20.03.2014

Студворк — интернет-сервис помощи студентам

Нужен bat который из папки windows будет брать 10 файлов с расширением dll и перемещать их в заведомо известную папку . За помощь буду очень благодарен!)) За ранее спасибо большое!)

Комментарий модератора

Неосознанное перемещение файлов из папки Windows может привести к неработоспособности системы.

@ComSpec · 28.03.2014, 19:05

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
@echo off
setlocal enabledelayedexpansion
for %%i in ("C:\Исходная папка\*.dll") do (
 set var_!random!="%%~fi"
)
for /f "tokens=1* delims==" %%i in ('set var_') do (
 set /a n+=1
 move %%j "C:\My Folder">nul&& echo !n!. "%%~nxj" moved.
 if !n!==10 goto:#
)
:#
pause>nul
endlocal
exit /b

@Cool34011 · 28.03.2014, 19:09 **[ТС]**

отказано в доступе( сообщение

@ComSpec · 28.03.2014, 19:14

Запуск от имени администратора.

@Cool34011 · 28.03.2014, 19:14 **[ТС]**

windows xp

@ComSpec · 28.03.2014, 19:19

Bash
1
CACLS /?

@Cool34011 · 28.03.2014, 19:25 **[ТС]**

простите но я новичок) куда эти права выписать?

@ComSpec · 28.03.2014, 19:48

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
@echo off
setlocal enabledelayedexpansion
for %%i in ("C:\Исходная папка\*.dll") do (
 set var_!random!="%%~fi"
)
for /f "tokens=1* delims==" %%i in ('set var_') do (
 set /a n+=1
 echo y| cacls %%j /g %username%:F>nul
 move %%j "C:\My Folder">nul&& echo !n!. "%%~nxj" moved.
 if !n!==10 goto:#
)
:#
pause>nul
endlocal
exit /b

@Cool34011 · 28.03.2014, 21:03 **[ТС]**

Спасибо большое)

Dragokas · 28.03.2014, 21:12

Сообщение от Cool34011

из папки windows будет брать 10 файлов с расширением dll и перемещать их

Зачем это нужно?

@Cool34011 · 28.03.2014, 21:35 **[ТС]**

задание дали)

Добавлено через 20 минут
а не он все равно пишет отказано в доступе и зачем то просит вставить диск xp для востановления каких то системных файлов, помел move на copy стал записывать в файл и вместо папки добавляю \ а он путь не найден

Dragokas · 28.03.2014, 21:45

Cool34011, какой дурак Вам это задание дал?
Вы себе систему могли угробить, если еще этого не сделали.
Перемещайте обратно в папку Windows файлы .dll, которые у Вас теперь находятся здесь: C:\My Folder
и больше никогда не экспериментируйте с системными папками.

@Cool34011 · 30.03.2014, 15:29 **[ТС]**

блин опечатка надо не перемещать а копировать

Добавлено через 1 минуту
там же в теме написано копирование

Добавлено через 54 секунды
поменяю move на copy

@Cool34011 · 31.03.2014, 01:43 **[ТС]**

нужно чтоб если скопировалось меньше 10 файлов выдавал предупреждения о том что скопированно например только 2 или 3 файла

Добавлено через 35 секунд

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
@echo off
setlocal enabledelayedexpansion
for %%i in ("C:\windows\system32\*.exe") do (
 set var_!random!="%%~fi"
)
for /f "tokens=1* delims==" %%i in ('set var_') do (
 set /a n+=1
 echo y| cacls %%j /g %username%:F>nul
 copy %%j "C:\temp\but\1">nul&& echo !n!. "%%~nxj" 
 if !n!==10 goto:#
)
 
:#
 
endlocal
exit /b

Комментарий модератора

Пишите в своей теме, пожалуйста. Объединено.

@ComSpec · 31.03.2014, 02:38

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
@echo off
setlocal enabledelayedexpansion
for %%i in ("C:\windows\system32\*.exe") do (
 set var_!random!="%%~fi"
)
for /f "tokens=1* delims==" %%i in ('set var_ 2^>nul') do (
 echo y| cacls %%j /g %username%:F>nul
 copy %%j "C:\temp\but\1">nul&& set /a n+=1
 if !n!==10 goto:#
)
if not defined n set n=0
if %n% lss 10 (
 echo Only %n% file^(s^) was^(were^) copied.& pause>nul
)
:#
endlocal
exit /b

@Cool34011 · 31.03.2014, 12:33 **[ТС]**

не работает( черный экран

@ComSpec · 31.03.2014, 12:58

Сообщение от Cool34011

не работает( черный экран

"Чёрный зкран" означает, что всё проходит в "штатном" режиме, и копируется ровно десять файлов. Если будет скопировано менее десяти файлов, то в окне появится соответствующая информация. Проверьте на копировании файлов с другими расширениями, которых в папке "System32" заведомо меньше десяти.

@Cool34011 · 31.03.2014, 13:08 **[ТС]**

нужно чтоб показывал что он именно в эту папку скопировал меньше 10 файлов то есть например с:\temp\1 скопировано 7 из 10, а если все скопировал то например с:\temp\1 копирование успешно завершено! Спасибо!

@ComSpec · 31.03.2014, 13:29

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
@echo off
setlocal enabledelayedexpansion
for %%i in ("C:\windows\system32\*.ini") do (
 set var_!random!="%%~fi"
)
for /f "tokens=1* delims==" %%i in ('set var_ 2^>nul') do (
 echo y| cacls %%j /g %username%:F>nul
 copy %%j "C:\temp\but\1">nul&& set /a n+=1
 if !n!==10 (
 echo Copying completed successfully.
 goto:#
 )
)
if not defined n set n=0
if %n% lss 10 (
 echo Only %n% file^(s^) out of 10 was^(were^) copied.
)
:#
pause>nul
endlocal
exit /b

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Копирование файлов в цикле с ограничением 10

Решение

Решение

@Cool34011 1 / 1 / 1 Регистрация: 20.03.2014 Сообщений: 45
	28.03.2014, 19:09 [ТС]
	отказано в доступе( сообщение 0

@ComSpec 3464 / 2002 / 635 Регистрация: 26.02.2014 Сообщений: 1,457
	28.03.2014, 19:14
	Запуск от имени администратора. 0

@Cool34011 1 / 1 / 1 Регистрация: 20.03.2014 Сообщений: 45
	28.03.2014, 19:14 [ТС]
	windows xp 0

@Cool34011 1 / 1 / 1 Регистрация: 20.03.2014 Сообщений: 45
	28.03.2014, 19:25 [ТС]
	простите но я новичок) куда эти права выписать? 0

@Cool34011 1 / 1 / 1 Регистрация: 20.03.2014 Сообщений: 45
	28.03.2014, 21:03 [ТС]
	Спасибо большое) 0

@Cool34011 1 / 1 / 1 Регистрация: 20.03.2014 Сообщений: 45
	28.03.2014, 21:35 [ТС]
	задание дали) Добавлено через 20 минут а не он все равно пишет отказано в доступе и зачем то просит вставить диск xp для востановления каких то системных файлов, помел move на copy стал записывать в файл и вместо папки добавляю \ а он путь не найден 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	28.03.2014, 21:45
	Cool34011, какой дурак Вам это задание дал? Вы себе систему могли угробить, если еще этого не сделали. Перемещайте обратно в папку Windows файлы .dll, которые у Вас теперь находятся здесь: C:\My Folder и больше никогда не экспериментируйте с системными папками. 1

@Cool34011 1 / 1 / 1 Регистрация: 20.03.2014 Сообщений: 45
	30.03.2014, 15:29 [ТС]
	блин опечатка надо не перемещать а копировать Добавлено через 1 минуту там же в теме написано копирование Добавлено через 54 секунды поменяю move на copy 0

@Cool34011 1 / 1 / 1 Регистрация: 20.03.2014 Сообщений: 45
	31.03.2014, 12:33 [ТС]
	не работает( черный экран 0

@Cool34011 1 / 1 / 1 Регистрация: 20.03.2014 Сообщений: 45
	31.03.2014, 13:08 [ТС]
	нужно чтоб показывал что он именно в эту папку скопировал меньше 10 файлов то есть например с:\temp\1 скопировано 7 из 10, а если все скопировал то например с:\temp\1 копирование успешно завершено! Спасибо! 0