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

@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, а может еще какой.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

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

	Присвоение файлам из заданной папки имён папок, находящихся в одной директории с этой папкой 24.04.2016, 21:28. Показов 3331. Ответов 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