| Single Post |
Topic: Показ файлов, не имеющих совпадений по базовому имени |
| Author |
Message |
Flasher
|
 Posted: Tue Dec 12, 2017 19:40 Post subject: |
 |
|
| Code: | '=============================== VBS ===============================
' Показать в активной панели файлы без наличия однобазовых спутников
' Условие: требуется компонент TCScript.dll
'===================================================================
Set Dict = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FileSystemObject")
With CreateObject("TCScript.Helper")
.Pause = 0 : .Wait = True
Clip = .GetTextFromClip : P = .GetSrcPath
Set Items = CreateObject("Shell.Application").NameSpace(P).Items
For Each F in FSO.GetFolder(P).Files
BN = FSO.GetBaseName(F)
If Not Dict.Exists(BN) Then
Dict.Add BN, "" : Items.Filter 73920, BN & ".*"
If Items.Count = 1 Then List = List & vbLf & F
End If
Next : Set Dict = Nothing : Set FSO = Nothing
.SetTextToClip List : .LockTC True : .SendCommand 2033, True
.SendCommand 2023, True : .SendCommand 524, True
.LockTC False : .SetTextToClip Clip
End With |
Это именно показ, не фильтрация.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Wed Dec 13, 2017 01:42; 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
