hjiapex
|
 Posted: Wed Apr 22, 2015 23:15 Post subject: |
 |
|
Просто уточню. Для ХП скрипт выглядит так? Что то мне подсказывает, что нет...
| Code: | '=====================================================================
' Выделение в панелях одноимённых файлов и/или папок
' Параметры: "%P" "%T" <файлы/каталоги/всё: 1/2/3>
'======================= Путь к утилите TCFS2 ========================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
Clip = "%COMMANDER_PATH%\Utils\clip.exe"
'=====================================================================
With CreateObject("WScript.Shell")
Clip = .ExpandEnvironmentStrings(Clip)
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write List1
.Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True
FSO.OpenTextFile(TempFile, 2, True, -1).Write List2
.Run """" & TCFS2 & """ /ef msg($0B,0) tcm(2033,0) send({TAB})",,True
.Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True
.Run """" & TCFS2 & """ /ef tcm(2033,0) send({TAB}) msg($0B,1) redraw()",,True
.Run "cmd /c type|" & Clip,0
End With : FSO.DeleteFile TempFile, 1 : D.RemoveAll : G.RemoveAll : Set D = Nothing
Set G = Nothing : Set Items = Nothing : Set FSO = Nothing : WScript.Quit |
И еще вопрос по поводу clip'a, что с ним делать? Просто скинуть в корень с программой? Или в настройках цвета и ИНИ файла тоже добавить по аналогии TCFS2? |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
