Flasher
|
 Posted: Sat Sep 21, 2013 12:38 Post subject: |
 |
|
Avada
 Так: | Code: | '=================================================================================
' Добавление имён выбранных элементов в список исключений TC с активацией фильтра
' Параметры: %L "<путь к файлу-списку>"
' Пример: %L "%%COMMANDER_PATH%%\tcignore.txt"
'============================ Путь к утилите TCFS2 ===============================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'=================================================================================
Dim WSH : Set WSH = CreateObject("WScript.Shell")
IL = WSH.ExpandEnvironmentStrings(WScript.Arguments(1))
NL = vbNewLine : Title = "Добавление имён в список исключений"
Msg = MsgBox("Добавлять полные пути" & NL & "к именам выбранных элементов?",_
4163, Title) : If Msg < 6 Then Quit
With CreateObject("Scripting.FileSystemObject")
All = .OpenTextFile(WScript.Arguments(0), 1).ReadAll : Sps = All
If Msg = 7 Then
For Each F in Split(All, NL) : S = S & NL & .GetFileName(F) : Next
Sps = Mid(S, 3)
End If : Set List = .OpenTextFile(IL, 8, True)
End With : List.Write Sps : List.Close
WSH.Run TCFS2 & " /ef ""tcm(2922) tcm(2922), eval(tcini(Configuration, " &_
"IgnoreListFileEnabled, #)) | tcm(2922)""" : Quit
Sub Quit : Set WSH = Nothing : WScript.Quit : End Sub |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sat Sep 21, 2013 17:46; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
