Flasher
|
 Posted: Sun Jul 10, 2016 01:59 Post subject: |
 |
|
Мне пришлось отлучиться.
24 строка ранее указывалась относительно исходника. Поэтому вариант "у меня" не рассматривается. Новый разделитель касается нового задания (об этом же чётко написано!).  Вот так будет выглядеть скрипт: | Code: | '==============================================================================
' Создать список отсортированных по числу файлов в структуре активного каталога
' Условие: путь запуска - пустой
Option Explicit : Dim Filt, FSO, Dict, ShAp, RecS, Dir, K, File
'=========================== Маски файлов через "|" ===========================
Filt = "1?.*|*name*|name?.txt|name 1.txt|name 1*.txt|name *1.*|" &_
"*2*|2.txt|name2.txt|name 2.txt|name *2.txt|name 2*.*|name 2?.*" &_
"*3*.txt|name 3.*|name3.txt|name 4.txt|name *4*.txt|*5*|*5*.txt"
'==============================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dict = CreateObject("Scripting.Dictionary")
Set ShAp = CreateObject("Shell.Application")
Set RecS = CreateObject("ADODB.Recordset")
RecS.Fields.Append "Name", 200, 255
RecS.Fields.Append "Count", 139, 22
Dir = FSO.GetAbsolutePathName("")
Filt = Split(Filt,"|"): FFolder Dir
If Dict.Count Then
RecS.Open
For Each K in Dict.Keys
RecS.AddNew : RecS("Name") = K : RecS("Count") = Dict(K)
Next : RecS.Sort = "Count DESC" : Set Dict = Nothing
File = FSO.GetFileName(Dir) & ".csv"
FSO.CreateTextFile(File, 1, 1).Write RecS.GetString
ShAp.ControlPanelItem File : RecS.Close
End If
Sub FFolder(Fold)
Dim Items, F, Cnt
Set Items = ShAp.NameSpace(Fold).Items
For Each F in Filt
Items.Filter 73920, F : Cnt = Items.Count
If Cnt Then
If Not Dict.Exists(F) Then Dict.Add F, Cnt _
Else Dict.Item(F) = Dict.Item(F) + Cnt
End If
Next : Items.Filter 73888, "*"
For Each F in Items : FFolder F : Next
End Sub |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Wed Jul 13, 2016 22:55; edited 6 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
