Найти папки с большим кол-ством файлов, находимых при поиске

[Flasher]

Hjkma
Улыбнуло. Какие ж это "повторы"? Это называется "кол-во файлов по маске".

[Hjkma]

Flasher
Ну тогда ладно. Но вообще это возможно узнать, сколько всего искомых файлов есть в папках? Чтобы можно было бы получить точную цифру кол-ства файлов и при этом желательно иметь отсортированный список, дабы список начинался с папках, в которых содержатся больше всего искомых файлов. Спасибо.

[Flasher]

Hjkma
Завис на глубой ошибке (забыл в одном месте убрать старое условие др. скрипта). Вот код:

Код: Выделить всё

'====================================================================================
' Создать список отсортированных по числу файлов папок в структуре активного каталога
' Параметр: [<маска файлов>]
' Примеры:  *.*  |  *.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

[Hjkma]

Flasher
Спасибо. Но что-то пока не получилось. Создал кнопку, написал параметры с масками поиска. Нажимаю на неё, спустя несколько минут открывается Notepad++ и предлагает создать где-то десяток новых текстовых файлов, причем названия этих файлов взяты с параметров масок. И эти файлы пусты, там ничего не написано. Ну вообще не совсем то я просил. Мне нужен один список, в котором будет список папок с указанием кол-ства файлов, встречающих в них. Не могли бы вы проверить работу скрипта, успешно он у вас создает список?

[Flasher]

Hjkma
Успешно. Ещё разок советую скопировать. Условие выполнено? Похоже, что нет.

[Hjkma]

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

Правильно написал?

[Flasher]

Hjkma
В примере масок на самом конце нет ;. Вся строка параметров какая?
Но в любом случае - это бред. Откуда notepad++ берёт эти имена, для меня большая загадка.

[Hjkma]

Flasher
Взял вот это

Melissa Clarke;Mel Clarke;Clarke

В одну папку положил две папки, у которых есть файлы с таким названиям. Захожу в такую папку, запускаю кнопку и нет реакции, ничего не происходит. А еще раньше на vbs в качестве основной программы для открытия стоял Nopepad++, поменял основную программу, теперь стоит Windows Based Script и Notepad++ не запускается, но и ничего не происходит. Где должен после операции лежать этот файл-список?

[Flasher]

Hjkma
У файлов не расширений?
Вообще csv по логике должна запускать Excel'e-подобная программа, а не Notepad++. Файл создаётся в активной папке.

[Hjkma]

Flasher
У файлов есть расширения, это jpg и png. Файла csv нету в активной папке.

[Flasher]

Hjkma
Так почему они не указаны (как в примере)?
А ещё при наличии пробелов параметр нужно брать в кавычки.
И что показывает скрипт?:

Код: Выделить всё

MsgBox CreateObject("WScript.Shell").RegRead("HKCR\.csv\")

[Hjkma]

Flasher
Как оказалось, причина была в том, что скрипт требует полного имени файла в параметрах, а не лишь просто слово. Как только написал в параметрах полное названия файла, сразу же создался csv файл и открылся Excel с содержимым этого файла. Возможно ли подправить скрипт, чтобы он не требовал полного имени файла, а лишь только часть имени (слово)? Ибо у меня файлов сотни тысяч, не могу же написать все эти названия файлов в параметрах, да и размер ограничен 2048 символами.

[Flasher]

Hjkma
ЕМНИП, то, что такое маски файлов, проходят в школьные годы. Примеры с ними приведены в шапке (в ТС: Alt+F7 > F1). Маска помимо полного имени подразумевает как минимум ещё * и ?. Это вообще уже RTFM начального уровня работы за компьютером.

[Hjkma]

Flasher
Исправил, теперь все как надо работает. Извините пожалуйста за мою компьютерную безграмотность. И большое вам спасибо, за помощь!

[Flasher]

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

Add: Шапку немного поправил.