View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Dec 09, 2016 07:25 Post subject: |
|
|
BeardFury78 wrote: | Вы же этот вопрос раньше задавали. | Где? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Fri Dec 09, 2016 07:27 Post subject: |
|
|
Quote: | Могут быть файлы с тем же идентификатором, но с другими расширениями и их не нужно трогать? |
Разве не об этом речь? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Dec 09, 2016 07:30 Post subject: |
|
|
Нет. Это совсем два разных вопроса. Сейчас я спрашиваю про принадлежность к группе разных расширений, а не о наличии файлов, которые не нужно трогать. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Fri Dec 09, 2016 07:32 Post subject: |
|
|
Flasher
Если я вас правильно понял, то да.
Вот для примера эти файлы:
Quote: | msd4cgI2f11sn8lbmo1_540 Battlestar.jpg
msd4cgI2f11sn8lbmo2_500.jpg
msd4cgI2f11sn8lbmo3_400.jpg
msd4cgI2f11sn8lbmo4_400.png |
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Dec 09, 2016 08:11 Post subject: |
|
|
BeardFury78
Можно проверять. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Fri Dec 09, 2016 08:33 Post subject: |
|
|
Flasher
Потестил, похоже скрипт не переименовывает файлы, если внутри описания содержится число. Можно ли убрать это ограничение? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Dec 09, 2016 08:38 Post subject: |
|
|
BeardFury78
Убрал. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Fri Dec 09, 2016 08:44 Post subject: |
|
|
Flasher
Спасибо. Еще заметил, что некоторые файлы с идентификаторам, которые содержат знак "_", не переименовались. Если заменить этот знак на "-", то переименовываются.
Примеры таких файлов
Quote: | lporhb_R8fqqastw5o1_500 thesethingsiveseen day trooper.jpg
lporhb_R8fqqastw5o2_500.jpg
lporhb_R8fqqastw5o3_540.jpg
lporhb_R8fqqastw5o4_540.jpg
lporhb_R8fqqastw5o5_540.jpg |
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Dec 09, 2016 08:47 Post subject: |
|
|
BeardFury78
Тоже стоял блок. Убрал. Надеюсь, хоть пробелов там не бывает. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Fri Dec 09, 2016 08:50 Post subject: |
|
|
Flasher
Вот теперь все работает замечательно! Спасибо большое за ваш труд! |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Tue Feb 14, 2017 08:00 Post subject: |
|
|
Сегодня запускал этот скрипт и вылезло окно ошибки "Строка: 35, Символ: 37" и текст ошибки "Путь не найден". Вот эта строка:
Quote: | Path & "\" & NN) Then FSO.GetFile(I.Path).Name = NN |
До этого месяц назад и два месяца назад запускал скрипт для больших структур папок и файлы успешно переименовались, а сегодня скрипт остановился на самом начале, на другом структуре папок. Похоже проблема какая-то с именами папок, но понять, чья папка вызвала эту ошибку, сложно, т.к. папок много, численностью от 450. С виду вроде все папки имеют нормальные названия, только с латинскими буквами и цифрами. Пробовал в другую папку для теста скопировать первые папки и с ними запускать скрипт и файлы в них успешно переименовываются, добавлял к ними другую группу папок и с этими папками скрипт справился. А с папкой, где лежат 450+ папок, скрипт выдает ту же самую ошибку. Сейчас устал и ложусь спать, завтра (сегодня) еще раз попробую методом перебора выявить виновника. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Feb 14, 2017 15:14 Post subject: |
|
|
Вероятно, там есть пути к файлам, имеющие > 259 символов. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Tue Feb 14, 2017 18:17 Post subject: |
|
|
Flasher
Перенес все файлы с длиной пути более 259 символов в другое место и еще раз запустил скрипт в прежнее место, опять та же ошибка. Кстати, раньше когда запускал скрипт, у меня были файлы с длиной пути более 259 символов, тогда при переходе к таким файлам скрипт просто останавливался, без всяких окошек ошибок, без предупреждения. Так что, это не оно. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Feb 14, 2017 18:50 Post subject: |
|
|
BeardFury78
Вместо Code: | If Rgx.Test(I) And Not FSO.FileExists(I.Parent.Self._
Path & "\" & NN) Then FSO.GetFile(I.Path).Name = NN |
пишем:
Code: | On Error Resume Next
If Rgx.Test(I) And Not FSO.FileExists(I.Parent.Self._
Path & "\" & NN) Then FSO.GetFile(I.Path).Name = NN
If Err.Number <> 0 Then S = S & vbCr & I.Path
On Error GoTo 0 |
А над Sub ForFolder(Path) вставить: WSH.Echo S
После отработки скрипт покажет проблемные пути. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Tue Feb 14, 2017 18:57 Post subject: |
|
|
Flasher
Странно, но как только отредактировал скрипт, так сейчас ошибка не появляется и скрипт работает сейчас, переименовывает файлы, раньше останавливался с ошибкой спустя 30-45 секунд после запуска. Спасибо! |
|
Back to top |
|
|
|