Присвоение файлам из заданной папки имён папок, находящихся в одной директории с этой папкой

@Partes · Регистрация: 24.04.2016

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

Возможно ли такое ? Например имеется 3 папки " папка 1 папка 2 папка 3 " в этом же катологе имеется папка под названием 1 в ней расположены 3 документа экселя, можно ли сделать так, чтобы названия папок заменили названия эксель документов? Соответственно эксель документы бы стали иметь имена папка 1 папка 2 папка 3, сразу сообще что в реальности таких документов примерно 240 в ручную делать долго.

@alpap · 24.04.2016, 23:59

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
@echo off
setlocal enabledelayedexpansion
set "d=papka"
set "p_xlsx=papka_excel"
set m=0
for /f "delims=" %%a in ('dir/a-d/b "%d%\%p_xlsx%\*.xlsx"') do (
 set/a m+=1& set "nf!m!=%%a"& call :l "%%nf!m!%%"
)
exit
 
:l
 set n=0
 for /f "delims=" %%b in ('dir/ad/b "%d%"^|find/v "%p_xlsx%"') do (
  set/a n+=1
  if !m!==!n! ren "%d%\%p_xlsx%\%~1" "%%~b%~x1"
)
exit/b

.

@Partes · 25.04.2016, 12:25 **[ТС]**

alpap, когда помещаю его в папку, при запуске пишет не удается найти указанный путь путь

@alpap · 25.04.2016, 16:58

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

set "d=papka"

- вместо "papka" пишите путь к папке, в которой папки 1,2,3 и папка с файлами excel, а она лично у меня для примера называлась "papka_excel", видно в коде, ставьте свои пути и имена и проверяйте еще раз.

Добавлено через 1 минуту
И помещать в рабочую папку bat не надо, запускайте, например, с рабочего стола или ярлыком к нему откуда угодно.

@Partes · 25.04.2016, 19:01 **[ТС]**

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

- вместо "papka" пишите путь к папке, в которой папки 1,2,3 и папка с файлами excel, а она лично у меня для примера называлась "papka_excel", видно в коде, ставьте свои пути и имена и проверяйте еще раз.

Добавлено через 1 минуту
И помещать в рабочую папку bat не надо, запускайте, например, с рабочего стола или ярлыком к нему откуда угодно.

Все равно не получается, указываю путь к папке "E:\эксперемент\Текущая" а путь к отчетам "E:\эксперемент\Текущая\Отчеты", может что то неправильно делаю

@b0gus · 25.04.2016, 19:07

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

...указываю путь к папке "E:\эксперемент\Текущая" а путь к отчетам "E:\эксперемент\Текущая\Отчеты"

сохраните скрипт в кодировке MS-DOS (oem 866)

@alpap · 25.04.2016, 19:24

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

путь к отчетам "E:\эксперемент\Текущая\Отчеты"

А это что?
Как я понял понял задачу в папке

Windows Batch file
1
set "d=E:\эксперемент\Текущая"

находятся три папки, с именами для файлов (например AAA, BBB, CCC) и
папка с файлами excel, например

Windows Batch file
1
set "p_xlsx=E:\эксперемент\Текущая\papka_excel"

, но по коду достаточно

Windows Batch file
1
set "p_xlsx=papka_excel"

все
я больше, как и требует задача, никаких папок не предусматривал.
И, при таком пути, как у вас, дествительно, по совету b0gus, сохраните код в кодировке DOS(OEM) 866, именно сохранить. В простом, штатном блокноте трудно это сделать, но реально, лучше, конечно, использовать, например, AkelPad или что-то в этом роде.

@Partes · 25.04.2016, 19:54 **[ТС]**

alpap, Все получилось!!!! Спасибо огромное, но еще одно маленькое уточнение, если формат файла который переименовываем будет не .xlsx а .gsheet

Добавлено через 39 секунд
то как это прописать ?

@alpap · 25.04.2016, 19:56

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

если формат файла который переименовываем будет не .xlsx а .gsheet

тогда в стр.6

Windows Batch file
1
for /f "delims=" %%a in ('dir/a-d/b "%d%\%p_xlsx%\*.gsheet"') do (

меняем на нужное.

@Partes · 25.04.2016, 22:43 **[ТС]**

alpap, еще вопрос, надеюсь последний) у меня на компе все запустилось идеально, все работает как надо, но вот делаю то же самое на компе жены(там стоит винда 10) пишет " не удается найти указанный файл

@alpap · 26.04.2016, 00:09

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

не удается найти указанный файл

Сначала внимательно посмотрите все пути, правильные ли, есть ли такая папка, есть ли в ней то что нужно, правильно ли поставлено расширение в 6й строке, сохранен ли bat файл в кодировке OEM 866, не пытаетесь ли выполнять действия с запрещенными папками, к которым доступа нет даже для л.админа, правильно ли скопирован код, может потерялось что по дороге. Видите, один невнимательный шаг и ...

@Partes · 26.04.2016, 19:11 **[ТС]**

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

один невнимательный шаг и ...

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

@alpap · 26.04.2016, 23:23

Partes,
Выложите код, который сейчас [на компе жены,] и скриншот запущенного батника, только в коде вместо первой строки поставьте

Windows Batch file
1
@echo on

вместо

Windows Batch file
1
@echo off

,
а в строке 9

Windows Batch file
1
pause

вместо

Windows Batch file
1
exit

и напишите (укажите) какие файлы (с каким расширением) в рабочей папке.

@Partes · 27.04.2016, 00:16 **[ТС]**

alpap, все сделал, в одном скрине

@alpap · 27.04.2016, 10:01

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

жены(там стоит винда 10) пишет " не удается найти указанный файл

, так а что не работает-то?

Добавлено через 8 минут
Где находится "rabpapka"? Судя по коду на C:\ , а по скрину посередине выглядывает "Новая папка" перед "rabpapka".

@Partes · 27.04.2016, 12:20 **[ТС]**

Там написано новый том, так локальный диск называется, не работает все, запускаю пишет не удаётся найти указанный файл, создаю папку с тем же путём на своём компе все запускается.

Добавлено через 15 минут
alpap, rabpapka находится по адресу C:\rabpapka в ней лежит папка отчёт C:\rabpapka\otchet

@alpap · 27.04.2016, 12:49

Повторил структуру, используя такой код:

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
@echo off
set "d=rabpapka"
set "p_f=otchet"
set "rf=txt"
 
setlocal enabledelayedexpansion
set m=0
for /f "delims=" %%a in ('dir/a-d/b "%d%\%p_f%\*.%rf%"') do (
 set/a m+=1& set "nf!m!=%%a"& call :l "%%nf!m!%%"
)
exit
 
:l
 set n=0
 for /f "delims=" %%b in ('dir/ad/b "%d%"^|find/v "%p_f%"') do (
  set/a n+=1
  if !m!==!n! ren "%d%\%p_f%\%~1" "%%~b%~x1"
)
exit/b

Получил соответственно (использовал, правда, .txt):

Присвоение файлам из заданной папки имён папок, находящихся в одной директории с этой папкой

Проверьте, точно нет ошибок в коде?

@alpap · 27.04.2016, 13:04

Может вы по второму кругу пытаетесь запустить bat, тогда конечно будет ответ, что файл с таким именем уже существует или не найден.

@Partes · 27.04.2016, 13:12 **[ТС]**

alpap, не, если запустить файл второй раз, то пишет файл с таким именем уже есть, пока нет возможности проверить Ваш последний вариант с тхт, но меня сбивает с толку то, что ничего не меняя, создавая антологичный путь и на одном и на втором компе на одном работает, на другом нет(((
Я делал так, создал папку на C\rabpapka туда вставил otchet, затем прописал все в бате, запустил, сработало, потом создал такой же путь на 2 компе, переслал туда бат через скайп, открыл его и пишет не удаётся найти указанный файл

@alpap · 27.04.2016, 15:28

Так с этого и надо было начинать. Создавайте bat файл на втором компе в кодировке OEM 866 и копируйте туда код. Явно по дороге кодировка слетела или установилась на компе2 - по умолчанию 1251, а может еще какой.

Новые блоги и статьи Все статьи Все блоги /
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 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, . . .

@Partes 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 30

	Присвоение файлам из заданной папки имён папок, находящихся в одной директории с этой папкой 24.04.2016, 21:28. Показов 3445. Ответов 25 Метки нет (Все метки) Возможно ли такое ? Например имеется 3 папки " папка 1 папка 2 папка 3 " в этом же катологе имеется папка под названием 1 в ней расположены 3 документа экселя, можно ли сделать так, чтобы названия папок заменили названия эксель документов? Соответственно эксель документы бы стали иметь имена папка 1 папка 2 папка 3, сразу сообще что в реальности таких документов примерно 240 в ручную делать долго. 0

@Partes 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 30
	25.04.2016, 12:25 [ТС]
	alpap, когда помещаю его в папку, при запуске пишет не удается найти указанный путь путь 0

@Partes 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 30
	25.04.2016, 19:54 [ТС]
	alpap, Все получилось!!!! Спасибо огромное, но еще одно маленькое уточнение, если формат файла который переименовываем будет не .xlsx а .gsheet Добавлено через 39 секунд то как это прописать ? 0

@Partes 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 30
	25.04.2016, 22:43 [ТС]
	alpap, еще вопрос, надеюсь последний) у меня на компе все запустилось идеально, все работает как надо, но вот делаю то же самое на компе жены(там стоит винда 10) пишет " не удается найти указанный файл 0

@Partes 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 30
	27.04.2016, 00:16 [ТС]
	alpap, все сделал, в одном скрине Миниатюры 0

@Partes 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 30
	27.04.2016, 12:20 [ТС]
	Там написано новый том, так локальный диск называется, не работает все, запускаю пишет не удаётся найти указанный файл, создаю папку с тем же путём на своём компе все запускается. Добавлено через 15 минут alpap, rabpapka находится по адресу C:\rabpapka в ней лежит папка отчёт C:\rabpapka\otchet 0

@alpap 4340 / 2130 / 661 Регистрация: 26.04.2015 Сообщений: 6,823
	27.04.2016, 13:04
	Может вы по второму кругу пытаетесь запустить bat, тогда конечно будет ответ, что файл с таким именем уже существует или не найден. 0

@Partes 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 30
	27.04.2016, 13:12 [ТС]
	alpap, не, если запустить файл второй раз, то пишет файл с таким именем уже есть, пока нет возможности проверить Ваш последний вариант с тхт, но меня сбивает с толку то, что ничего не меняя, создавая антологичный путь и на одном и на втором компе на одном работает, на другом нет((( Я делал так, создал папку на C\rabpapka туда вставил otchet, затем прописал все в бате, запустил, сработало, потом создал такой же путь на 2 компе, переслал туда бат через скайп, открыл его и пишет не удаётся найти указанный файл 0

@alpap 4340 / 2130 / 661 Регистрация: 26.04.2015 Сообщений: 6,823
	27.04.2016, 15:28
	Так с этого и надо было начинать. Создавайте bat файл на втором компе в кодировке OEM 866 и копируйте туда код. Явно по дороге кодировка слетела или установилась на компе2 - по умолчанию 1251, а может еще какой. 0