Как массово переименовать файлы формата 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 при этом сохраняя порядок файлов в папке.
Это не вопрос, а задание.
Вопрос - это когда вы прикладываете код того, что вы пытались сделать и спрашиваете: "почему он не работает?" и как его исправить.
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", то будет не хорошо.
Средний
