Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Переключение между разными базами эскизов 
Author Message
Flasher



PostPosted: Tue Mar 26, 2013 17:44    Post subject: Reply with quote

Avada wrote:
с сохранением этой переменной
Зачем? Она же раскрываться должна.

Lev, WSH без объявления переменной через DIM не работает, поэтому лучше сразу вызывать:
Code:
Path = CreateObject("WScript.Shell").Environment("Process")("COMMANDER_PATH")


Это я скидывал клиенту ещё до Rodny:
Code:
' Переключаться между 2-мя размерами эскизов
'===========================================
With CreateObject("TCScript.Helper")
  If .INIRead(.MainINI, "Configuration", "ThumbHeightNoCache", "") = "80" Then
    F = "2"   ' Задаём имя папки ( 1 символ)
    W = "120" ' Задаём ширину
    H = "120" ' Задаём высоту
  Else
    F = "1"
    W = "80"
    H = "80"
  End If
  .SendCommand 482
  .SendKeystroke "{TAB}{END}{BS}" & F & "{TAB 7}" & W & "{TAB}" & H & "~"
  .INIWrite .MainINI, "Configuration", "ThumbHeightNoCache", H
End With

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group