| Single Post |
Topic: Найти папки с большим кол-ством файлов, находимых при поиске |
| Author |
Message |
Flasher
|
 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 |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
