Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Переместить файлы по маске в папки, соответствующие маскам
Goto page Previous  1, 2, 3
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Hjkma



Joined: 18 Apr 2015
Posts: 166

Post (Separately) Posted: Mon Feb 12, 2018 22:36    Post subject: Reply with quote

Flasher
Теперь пишет ошибку:
Quote:
Строка: 36
Символ: 44
Ошибка: Файл уже существует
Код: 800A003A
Источник: Ошибка выполнения Microsoft VBScript

Запускаю скрипт на папке, нету подпапок, только файлы лежат. Кажется это проблема связана с тем, что есть 2 и больше файлов, которые соответствуют одной маске. Если одной маске соответствует только один файл, то ошибка не появляется. И еще один баг заметил, не отправляются файлы, названия у которых не соответствуют регистрам масок. То есть, если названия файлов сделать капсом, а маски только строчным, то они не отправляются в папки.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12747
Location: Москва

Post (Separately) Posted: Mon Feb 12, 2018 22:47    Post subject: Reply with quote

Hjkma
Наоборот. 36 строка касается маски без *, т. е. как раз ситуации, при которой возможно одно ссответствие.
Регисрозависимость убрал.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Hjkma



Joined: 18 Apr 2015
Posts: 166

Post (Separately) Posted: Mon Feb 12, 2018 22:52    Post subject: Reply with quote

Flasher
Я имею в виду маски с *, у меня все маски с *. Ошибка все еще присутствует. Проблема с регистрозависимостью снялась.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12747
Location: Москва

Post (Separately) Posted: Mon Feb 12, 2018 22:54    Post subject: Reply with quote

Hjkma
Судя по тому, что маски задавались в другом числе строк, то было бы логично указать не номер строки, а саму строку.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Hjkma



Joined: 18 Apr 2015
Posts: 166

Post (Separately) Posted: Mon Feb 12, 2018 22:56    Post subject: Reply with quote

Flasher
С новым вариантом это уже строка 37, вот
Quote:
If Not .FolderExists(OPath) Then .CreateFolder OPath
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12747
Location: Москва

Post (Separately) Posted: Mon Feb 12, 2018 23:10    Post subject: Reply with quote

Hjkma
В исходнике 39-я. Нужен пример источника, нескольких файлов в нём и получателя.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Hjkma



Joined: 18 Apr 2015
Posts: 166

Post (Separately) Posted: Mon Feb 12, 2018 23:14    Post subject: Reply with quote

Flasher
До запуска скрипта (навожу курсор на папку test):
Quote:
d:\test\31724013194 - anri sugihara_3.jpg
d:\test\31724013194 - anri sugihara_4.jpg
d:\test\31724013194 - anri sugihara_5.jpg

После запуска ошибка, только один файл отправляется:
Quote:
d:\test\*anri sugihara*\31724013194 - anri sugihara_3.jpg
d:\test\31724013194 - anri sugihara_4.jpg
d:\test\31724013194 - anri sugihara_5.jpg

Про источник и получатель не понял. Если имеются в виду панели, то я просто в одной панели навожу на папку и файлы отправляются внутри этой папки в подпапки (сейчас только по одному файлу в одну папку).
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12747
Location: Москва

Post (Separately) Posted: Mon Feb 12, 2018 23:24    Post subject: Reply with quote

Hjkma
Исправил.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Hjkma



Joined: 18 Apr 2015
Posts: 166

Post (Separately) Posted: Mon Feb 12, 2018 23:54    Post subject: Reply with quote

Flasher
Запустил новый вариант скрипта на папке, содержащем большое количество файлов, и вылезла ошибка, на этот раз другая:
Quote:
Строка: 44
Символ: 43
Ошибка: Недопустимый вызов или аргумент процедуры

Строка 44 у меня вот эта:
Quote:
CreateForLong IPath, FPath Else .MoveFile IPath, FPath

Локализировать ошибку сходу не удалось. Пробовал запустить скрипт на папке с небольшим количеством файлов, не вылезла ошибка и файлы отправились в подпапки. Пробовал повторно запустить скрипт на том самом папке с большим количеством файлов, снова та же ошибка. Завтра попробую перебирать маски и файлы, попробую выяснить на чем скрипт спотыкается.
upd. Кажется, понял. Проблема с файлами, с длиной пути меньше 259 символов, но, которые будут иметь длину больше 259 символов, если они переместятся в подпапки с названиями масок. Файлы с длиной пути больше 259 символов перемещаются нормально.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12747
Location: Москва

Post (Separately) Posted: Tue Feb 13, 2018 00:01    Post subject: Reply with quote

Hjkma
Неполная правка была. Строкой выше заменил OPath на FPath.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Hjkma



Joined: 18 Apr 2015
Posts: 166

Post (Separately) Posted: Tue Feb 13, 2018 00:15    Post subject: Reply with quote

Flasher
Запустил и все успешно отправилось. Теперь скрипт работающий. Большое вам спасибо за помощь, скрипт и терпение!
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12747
Location: Москва

Post (Separately) Posted: Tue Feb 13, 2018 00:25    Post subject: Reply with quote

Hjkma
Чуть ранее ещё одной строкой выше кое-что добавлял на всякий.
На доброе пользование.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3
Page 3 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group