Переключение 16\32 размеров значков в файловых панелях в Total Commander
Используется TCMCWindow.exe (версия от 1.5) - файл можете скачать в шапке темы утилиты
Code
' 16Or32Button.vbs
'======================== Описание =====================================
' Переключение 16\32 размеров значков в файловых панелях в Total Commander
' Автор: Аверин Андрей
' Версия: 1.1 (17.01.2012 - 22.03.2012)
' Mail: Averin-And@yandex.ru
' Site: http://tc-image.3dn.ru
'==================== Изменяемые пути ===================================
TCMSW = "%COMMANDER_PATH%\Utilities\TotalCom\TCMC\TCMCWindow.exe" ' утилита версии от 1.5
'========================================================================
B1 = "16x16" : B2 = "32x32" : S1 = "[" & B1 & "]" : S2 = "[" & B2 & "]"
ScriptFile = WScript.ScriptFullName
Txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(ScriptFile).ReadAll
If InStr(Txt, S1) > 0 Then
Txt = Replace(Txt, S1, S2) : Button = B2
Else
Txt = Replace(Txt, S2, S1) : Button = B1
End If
CreateObject("WScript.Shell").Exec(TCMSW & " ttcmc=CM477 pause=50 " & Chr(34) & "keybd={TAB 7}" & Chr(34) & " pause=50 " & Chr(34) & "keybd=" & Button & Chr(34) & " keybd={ENTER}")
'RunTCMS() '& keybd={ENTER}")
CreateObject("Scripting.FileSystemObject").OpenTextFile(ScriptFile, 2).Write Txt
WScript.Quit
[32x32]
