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, 4  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



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

Post (Separately) Posted: Sun Jun 05, 2016 22:01    Post subject: Reply with quote

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



Joined: 18 Apr 2015
Posts: 178

Post (Separately) Posted: Sun Jun 05, 2016 22:11    Post subject: Reply with quote

Flasher
Ну тогда ладно. Но вообще это возможно узнать, сколько всего искомых файлов есть в папках? Чтобы можно было бы получить точную цифру кол-ства файлов и при этом желательно иметь отсортированный список, дабы список начинался с папках, в которых содержатся больше всего искомых файлов. Спасибо.
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Sun Jun 05, 2016 23:42    Post subject: Reply with quote

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
View user's profile Send private message
Hjkma



Joined: 18 Apr 2015
Posts: 178

Post (Separately) Posted: Mon Jun 06, 2016 00:27    Post subject: Reply with quote

Flasher
Спасибо. Но что-то пока не получилось. Создал кнопку, написал параметры с масками поиска. Нажимаю на неё, спустя несколько минут открывается Notepad++ и предлагает создать где-то десяток новых текстовых файлов, причем названия этих файлов взяты с параметров масок. И эти файлы пусты, там ничего не написано. Ну вообще не совсем то я просил. Мне нужен один список, в котором будет список папок с указанием кол-ства файлов, встречающих в них. Не могли бы вы проверить работу скрипта, успешно он у вас создает список?
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jun 06, 2016 00:37    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: 178

Post (Separately) Posted: Mon Jun 06, 2016 00:46    Post subject: Reply with quote

Flasher
Путь запуска на настройке панели инструмента пустой. Еще раз скопировал текст скрипта - все тоже самое. Запускаю кнопку, открывается Notepad++ предложениями создавать файлы, с именами этих масок и они все пустые. Может что-то не так с параметрами?
Писал в виде filename1;filename2;filename3;

Правильно написал?
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jun 06, 2016 00:50    Post subject: Reply with quote

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



Joined: 18 Apr 2015
Posts: 178

Post (Separately) Posted: Mon Jun 06, 2016 00:57    Post subject: Reply with quote

Flasher
Взял вот это
Quote:
Melissa Clarke;Mel Clarke;Clarke

В одну папку положил две папки, у которых есть файлы с таким названиям. Захожу в такую папку, запускаю кнопку и нет реакции, ничего не происходит. А еще раньше на vbs в качестве основной программы для открытия стоял Nopepad++, поменял основную программу, теперь стоит Windows Based Script и Notepad++ не запускается, но и ничего не происходит. Где должен после операции лежать этот файл-список?
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jun 06, 2016 01:00    Post subject: Reply with quote

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



Joined: 18 Apr 2015
Posts: 178

Post (Separately) Posted: Mon Jun 06, 2016 01:04    Post subject: Reply with quote

Flasher
У файлов есть расширения, это jpg и png. Файла csv нету в активной папке.
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jun 06, 2016 01:10    Post subject: Reply with quote

Hjkma
Так почему они не указаны (как в примере)?
А ещё при наличии пробелов параметр нужно брать в кавычки.
И что показывает скрипт?:
Code:
MsgBox CreateObject("WScript.Shell").RegRead("HKCR\.csv\")

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



Joined: 18 Apr 2015
Posts: 178

Post (Separately) Posted: Mon Jun 06, 2016 01:20    Post subject: Reply with quote

Flasher
Как оказалось, причина была в том, что скрипт требует полного имени файла в параметрах, а не лишь просто слово. Как только написал в параметрах полное названия файла, сразу же создался csv файл и открылся Excel с содержимым этого файла. Возможно ли подправить скрипт, чтобы он не требовал полного имени файла, а лишь только часть имени (слово)? Ибо у меня файлов сотни тысяч, не могу же написать все эти названия файлов в параметрах, да и размер ограничен 2048 символами.
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jun 06, 2016 01:29    Post subject: Reply with quote

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
View user's profile Send private message
Hjkma



Joined: 18 Apr 2015
Posts: 178

Post (Separately) Posted: Mon Jun 06, 2016 01:36    Post subject: Reply with quote

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



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

Post (Separately) Posted: Mon Jun 06, 2016 01:39    Post subject: Reply with quote

Hjkma
Извиняю. Пожалуйста. Wink

Add: Шапку немного поправил.
_________________
Автору сборки 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, 4  Next
Page 2 of 4

 
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