Переименование папок содержащих файлы согласно заданного списка соответствий имени

@Spawnaleks · Регистрация: 25.05.2022

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

Добрый день!
Нужна помощь, сам в этом особо не разбираюсь. Имеется папка с названием "20220517-6283991696f6a", в которой находится 3291 папка с разными названиями (названия папок цифровые: 317334; 327866 и т.д.). Необходимо все эти папки переименовать согласно двух столбцов в экселе, Столбец А - старое название папки, столбец В - новое название папки (пример нового названия: Иванов Иван Иванович_317334; Петров Петр Петрович_327866 и т.д.). Заранее благодарен за решение.

@Karen87 · 25.05.2022, 12:34

Spawnaleks, да не за что

@Angry Old Man · 25.05.2022, 13:02

vbs. Скрипт сохранить в 1251 крдировке, пути прописать свои

Visual Basic
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
Dim FileXLS: FileXLS = "D:\Мой контент\Загрузки\Name.xlsx"  'Таблица соответствия имен
Dim BeginXLS: BeginXLS = "A2"                               'Начальная ячейка с данными
Dim FoldName: FoldName = "Z:\Box_In\Ку ку"                  'Путь обрабатываемой папки
 
Dim Mass, i, i1, i2
Dim AllTxt
 
With CreateObject("Scripting.FileSystemObject")
    If Not .FileExists(FileXLS) Then
        MsgBox "Файл не найден" + vbCr + vbCr + FileXLS, 16
        WScript.Quit
    End If
    If Not .FolderExists(FoldName) Then
        MsgBox "Папка не найдена" + vbCr + vbCr + FoldName, 16
        WScript.Quit
    End If
 
    MsgBox "Begin"
    With CreateObject("Excel.Application")
        .Visible = False 'True
        .Workbooks.Open FileXLS
        Mass = .Range(BeginXLS + ":" + .Range(BeginXLS).End(-4121).Offset(0, 1).Address(0, 0))
        .DisplayAlerts = False
        .Quit
    End With
 
    i1 = LBound(Mass, 1)
    i2 = UBound(Mass, 1)
 
    For i = i1 To i2
        If .FolderExists(FoldName + "\" + CStr(Mass(i, i1))) Then
            .MoveFolder FoldName + "\" + CStr(Mass(i, i1)), FoldName + "\" + CStr(Mass(i, i1 + 1))
        End If
    Next
End With
MsgBox "Done"

@Angry Old Man · 25.05.2022, 13:22

Если это разовая акция, можно не писать скрипты.
В ячейке C1 пишем chcp 1251
В ячейке C2 пишем формулу

Code
1
="ren "&""""&A2&""" """&B2&""""

Размножаем её на все данные.
Выделяем и копируем (Ctrl/C) ячейки, например, C2:CB2674, и вставляем скопированное в текстовый файл в кодировке 1251 с расширением .bat в папку с обрабатываемыми подпапками.
запускаем батник на выполнение. Voila! Получили желаемое.

@Spawnaleks · 25.05.2022, 13:56 **[ТС]**

Angry Old Man, Добрый день! Спасибо огромное.

Новые блоги и статьи Все статьи Все блоги /
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .

@Spawnaleks 0 / 0 / 0 Регистрация: 25.05.2022 Сообщений: 15

	Переименование папок содержащих файлы согласно заданного списка соответствий имени 25.05.2022, 08:22. Показов 2316. Ответов 23 Метки Переименование, список (Все метки) Добрый день! Нужна помощь, сам в этом особо не разбираюсь. Имеется папка с названием "20220517-6283991696f6a", в которой находится 3291 папка с разными названиями (названия папок цифровые: 317334; 327866 и т.д.). Необходимо все эти папки переименовать согласно двух столбцов в экселе, Столбец А - старое название папки, столбец В - новое название папки (пример нового названия: Иванов Иван Иванович_317334; Петров Петр Петрович_327866 и т.д.). Заранее благодарен за решение. 0

@Karen87 3449 / 1110 / 494 Регистрация: 29.05.2016 Сообщений: 4,566
	25.05.2022, 12:34
	Spawnaleks, да не за что 0

@Spawnaleks 0 / 0 / 0 Регистрация: 25.05.2022 Сообщений: 15
	25.05.2022, 13:56 [ТС]
	Angry Old Man, Добрый день! Спасибо огромное. 0