'=============================== 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 |