@Equess
Инженер

Как массово переименовать файлы формата PDF с нумерацией?

Доброе время суток!!!
По своей деятельности, мне приходится составлять реестры с перечнем файлов в папке.
В реестре должна сохранятся последовательность файлов в независимости от нумерации ( к примеру: 1. АОСР_№1 2.АООК_№2 3.АОСР_№2), если просто вручную удалять нумерацию, порядок собъется ( АООК_№2, АОСР_№1, АОСР_№2). Так же необходимо заменить любую имеющуюся нумерацию типа 1,2,3 или 01,02,03 на 001,002,003 опять же сохраняя последовательность файлов после переименования.

Надеюсь мой вопрос максимально понятен.
По сути нужно переименовать файлы с 1,2,3 или 01,02,03 в 001,002,003 при этом сохраняя порядок файлов в папке.
  • Вопрос задан
  • 286 просмотров
Пригласить эксперта
Ответы на вопрос 4
@ComodoHacker
В Total Commander Групповое переименование (Ctrl+M)
Ответ написан
Francyz
@Francyz
Photographer & SysAdmin
Камрад!
Надеюсь мой вопрос максимально понятен.
Это не вопрос, а задание.
Вопрос - это когда вы прикладываете код того, что вы пытались сделать и спрашиваете: "почему он не работает?" и как его исправить.

P.S. Я юзаю Bulk Rename Utility
Ответ написан
Комментировать
@Anonymous5454587
bulk rename
Ответ написан
Комментировать
@BindOf
sub renleadzero(afolder)
  on error resume next
  dim file
  dim a
  for each file in createobject("scripting.filesystemobject").getfolder(_
    afolder).files
    a = 0
    a = clng(left(file.name, 2))
    if a > 0 then
      file.name = "0" & file.name
      exit sub
    end if
    a = clng(left(file.name, 1))
    if a > 0 then file.name = "00" & file.name
  next
end sub

renleadzero "c:\folder"


Однако, если в папке окажутся файлы с именами, например, "1name.ext" и "01name.ext", то будет не хорошо.
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
28 мар. 2024, в 18:16
1000 руб./за проект
28 мар. 2024, в 18:15
90000 руб./за проект
28 мар. 2024, в 18:05
5000 руб./за проект