'==========================================================================
' Выделение в другой панели папок, имеющих все выделенные элементы активной
' Параметры: %F "%T"
'================================ Путь к TCFS2 ============================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'==========================================================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0) : Target = .Item(1)
End With : NL = vbNewLine
With CreateObject("Scripting.FileSystemObject")
Names = .OpenTextFile(List, 1).ReadAll
Arr = Split(Names, NL) : Count = Ubound(Arr) : Names = NL & Names
For Each Fd in .GetFolder(Target).SubFolders
n = 0 : Set Fold = .GetFolder(Fd)
If .FolderExists(Arr(0)) Then
For Each F in Fold.SubFolders
If InStr(Names, NL & .GetFileName(F) & "\" & NL) Then n = n + 1
Next
End If
For Each F in Fold.Files
If InStr(Names, NL & .GetFileName(F) & NL) Then n = n + 1
Next : If n = Count Then Folders = Folders & Fd & "\" & NL
Next
End With
If Folders <> "" Then
Dim WSH : Set WSH = CreateObject("WScript.Shell")
P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
A = WSH.RegRead(P) : If A > 0 Then WSH.RegWrite P, 0, "REG_DWORD"
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
T = .Document.ParentWindow.ClipboardData.GetData("text")
.Document.ParentWindow.ClipboardData.SetData "text", Folders
WSH.Run TCFS2 & "/ef ""send({tab}) tcm(2033)""", 0, True
.Document.ParentWindow.ClipboardData.SetData "text", T
.ExecWB 45, 2 : .Quit
End With : If A > 0 Then WSH.RegWrite P, A, "REG_DWORD"
End If : Set WSH = Nothing : WScript.Quit |