Flasher
|
 Posted: Thu Jul 14, 2011 21:02 Post subject: |
 |
|
svshilo
В общем-то, тут просто:
| Code: | ' Добавление имён выделенных файлов/папок в список исключений TC
' Параметры: %F "<путь к файлу-списку>"
' Пример: %F "%%COMMANDER_PATH%%\tcignore.txt"
'===========================================
L = CreateObject("WScript.Shell").ExpandEnvironmentStrings(WScript.Arguments(1))
With CreateObject("Scripting.FileSystemObject")
Set TempFile = .OpenTextFile(WScript.Arguments(0),1)
Set List = .OpenTextFile(L,8,True)
List.Write TempFile.ReadAll
List.Close
End With |
Без перезапуска TC фильтр не сработает. Нужен?
Хотя есть один способ без перезапуска, он мне не очень нравится, хоть и работает:
| Quote: | ' Добавление имён выделенных файлов в список исключений TC с активацией фильтра
' Параметры: %F "<путь к файлу-списку>"
' Пример: %F "%%COMMANDER_PATH%%\tcignore.txt"
'===========================================
Dim WSH
Set WSH = CreateObject("WScript.Shell")
L = WSH.ExpandEnvironmentStrings(WScript.Arguments(1))
With CreateObject("Scripting.FileSystemObject")
Set TempFile = .OpenTextFile(WScript.Arguments(0),1)
Set List = .OpenTextFile(L,8,True)
List.Write TempFile.ReadAll
List.Close
End With
WSH.Exec "%COMMANDER_PATH%\Utils\TCMC\TCMC.exe CM480"
WScript.Sleep 20
WSH.SendKeys "{TAB 2} {BS}+{TAB} ~"
Set WSH = Nothing
WScript.Quit |
Путь, выделенный красным, к утилите TCMC должен соответствовать скриптовому. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
