View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Jun 05, 2016 22:01 Post subject: |
|
|
Hjkma
Улыбнуло. Какие ж это "повторы"? Это называется "кол-во файлов по маске". _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Hjkma
Joined: 18 Apr 2015 Posts: 178
|
(Separately) Posted: Sun Jun 05, 2016 22:11 Post subject: |
|
|
Flasher
Ну тогда ладно. Но вообще это возможно узнать, сколько всего искомых файлов есть в папках? Чтобы можно было бы получить точную цифру кол-ства файлов и при этом желательно иметь отсортированный список, дабы список начинался с папках, в которых содержатся больше всего искомых файлов. Спасибо. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Jun 05, 2016 23:42 Post subject: |
|
|
Hjkma
Завис на глубой ошибке (забыл в одном месте убрать старое условие др. скрипта). Вот код:
Code: | '====================================================================================
' Создать список отсортированных по числу файлов папок в структуре активного каталога
' Параметр: [<маска файлов>]
' Примеры: *.* | *.avi;*.flv | "FileName.avi;File Name2.avi;File*Name.mp4"
' Условие: путь запуска - пустой
'====================================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ShAp = CreateObject("Shell.Application")
Set Dict = CreateObject("ADODB.Recordset")
Dict.Fields.Append "Name", 200, 255
Dict.Fields.Append "Count", 139, 22
Dir = FSO.GetAbsolutePathName("")
Dict.Open : ForFolder Dir
If Dict.RecordCount Then
Dict.Sort = "Count DESC" : File = FSO.GetFileName(Dir) & ".csv"
FSO.CreateTextFile(File,1,1).Write Dict.GetString
ShAp.ControlPanelItem File
End If : Dict.Close
Sub ForFolder(Fold)
Set Items = ShAp.NameSpace(Fold).Items
Items.Filter 73920, WScript.Arguments(0)
If Items.Count Then
Dict.AddNew : Dict("Name") = FSO.GetFileName(Fold)
Dict("Count") = Items.Count
End If : Items.Filter 73888, "*"
For Each F in Items : ForFolder F : Next
End Sub |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Mon Jun 06, 2016 01:57; edited 1 time in total |
|
Back to top |
|
|
Hjkma
Joined: 18 Apr 2015 Posts: 178
|
(Separately) Posted: Mon Jun 06, 2016 00:27 Post subject: |
|
|
Flasher
Спасибо. Но что-то пока не получилось. Создал кнопку, написал параметры с масками поиска. Нажимаю на неё, спустя несколько минут открывается Notepad++ и предлагает создать где-то десяток новых текстовых файлов, причем названия этих файлов взяты с параметров масок. И эти файлы пусты, там ничего не написано. Ну вообще не совсем то я просил. Мне нужен один список, в котором будет список папок с указанием кол-ства файлов, встречающих в них. Не могли бы вы проверить работу скрипта, успешно он у вас создает список? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jun 06, 2016 00:37 Post subject: |
|
|
Hjkma
Успешно. Ещё разок советую скопировать. Условие выполнено? Похоже, что нет. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Hjkma
Joined: 18 Apr 2015 Posts: 178
|
(Separately) Posted: Mon Jun 06, 2016 00:46 Post subject: |
|
|
Flasher
Путь запуска на настройке панели инструмента пустой. Еще раз скопировал текст скрипта - все тоже самое. Запускаю кнопку, открывается Notepad++ предложениями создавать файлы, с именами этих масок и они все пустые. Может что-то не так с параметрами?
Писал в виде filename1;filename2;filename3;
Правильно написал? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jun 06, 2016 00:50 Post subject: |
|
|
Hjkma
В примере масок на самом конце нет ;. Вся строка параметров какая?
Но в любом случае - это бред. Откуда notepad++ берёт эти имена, для меня большая загадка. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Hjkma
Joined: 18 Apr 2015 Posts: 178
|
(Separately) Posted: Mon Jun 06, 2016 00:57 Post subject: |
|
|
Flasher
Взял вот это
Quote: | Melissa Clarke;Mel Clarke;Clarke |
В одну папку положил две папки, у которых есть файлы с таким названиям. Захожу в такую папку, запускаю кнопку и нет реакции, ничего не происходит. А еще раньше на vbs в качестве основной программы для открытия стоял Nopepad++, поменял основную программу, теперь стоит Windows Based Script и Notepad++ не запускается, но и ничего не происходит. Где должен после операции лежать этот файл-список? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jun 06, 2016 01:00 Post subject: |
|
|
Hjkma
У файлов не расширений?
Вообще csv по логике должна запускать Excel'e-подобная программа, а не Notepad++. Файл создаётся в активной папке. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Hjkma
Joined: 18 Apr 2015 Posts: 178
|
(Separately) Posted: Mon Jun 06, 2016 01:04 Post subject: |
|
|
Flasher
У файлов есть расширения, это jpg и png. Файла csv нету в активной папке. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jun 06, 2016 01:10 Post subject: |
|
|
Hjkma
Так почему они не указаны (как в примере)?
А ещё при наличии пробелов параметр нужно брать в кавычки.
И что показывает скрипт?:
Code: | MsgBox CreateObject("WScript.Shell").RegRead("HKCR\.csv\") |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Hjkma
Joined: 18 Apr 2015 Posts: 178
|
(Separately) Posted: Mon Jun 06, 2016 01:20 Post subject: |
|
|
Flasher
Как оказалось, причина была в том, что скрипт требует полного имени файла в параметрах, а не лишь просто слово. Как только написал в параметрах полное названия файла, сразу же создался csv файл и открылся Excel с содержимым этого файла. Возможно ли подправить скрипт, чтобы он не требовал полного имени файла, а лишь только часть имени (слово)? Ибо у меня файлов сотни тысяч, не могу же написать все эти названия файлов в параметрах, да и размер ограничен 2048 символами. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jun 06, 2016 01:29 Post subject: |
|
|
Hjkma
ЕМНИП, то, что такое маски файлов, проходят в школьные годы. Примеры с ними приведены в шапке (в ТС: Alt+F7 > F1). Маска помимо полного имени подразумевает как минимум ещё * и ?. Это вообще уже RTFM начального уровня работы за компьютером. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Mon Jun 06, 2016 01:38; edited 1 time in total |
|
Back to top |
|
|
Hjkma
Joined: 18 Apr 2015 Posts: 178
|
(Separately) Posted: Mon Jun 06, 2016 01:36 Post subject: |
|
|
Flasher
Исправил, теперь все как надо работает. Извините пожалуйста за мою компьютерную безграмотность. И большое вам спасибо, за помощь! |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jun 06, 2016 01:39 Post subject: |
|
|
Hjkma
Извиняю. Пожалуйста.
Add: Шапку немного поправил. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|