Monarch-LFV
|
Posted: Tue Dec 14, 2021 03:22 Post subject: |
|
|
7995
У меня реализовано через скрипт VBS:
Code: | '======================================================================
' Сделать скрытыми/нескрытыми выделенные объекты (без рекурсии)
' Параметры:
' {файл-список}
' Пример параметров вызова из TC:
' %WL
'======================================================================
Option Explicit
on error resume next
Dim FSO, FileList, List, F, object1
Set FSO = CreateObject("Scripting.FileSystemObject")
FileList = WScript.Arguments(0)
List = Split(FSO.OpenTextFile(FileList,,,-1).ReadAll, vbNewLine)
For Each F In List
If F <> "" Then
set object1 = CreateObject("Scripting.FileSystemObject").Getfile(F) ' Имя файла
set object1 = CreateObject("Scripting.FileSystemObject").GetFolder(F) ' Имя папки
If object1.attributes and 2 Then
object1.attributes = object1.attributes - 2
Else
object1.attributes = object1.attributes + 2
End If
End If
Next
Set FSO = Nothing
Wscript.Quit 0 |
Создать файл с содержимым, назвать его *.VBS, повесить на кнопку с параметром %WL (или сделать команду по горячей клавише, как я себе сделал по Ctrl+Shift+h). Выделенные объекты скрывает или делает нескрытыми. |
|