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: Windows Script Host 
Author Message
ingerard



PostPosted: Mon Sep 28, 2020 21:45    Post subject: Reply with quote

Перестали работать некоторые скрипты. Выяснил что команда GetSrcSelectedFiles нормально не работает. Возможно из-за обновленной системы. Что подскажете делать?

TCScript.dll 1.0.0.15
wscript.exe 5.8.7601.18283
Windows 10 Professional (Build 18363) 1909, Fall 2019
TC 32bit


Один из скриптов.
Code:

'=========================== VBS ============================
' Выделение в другой панели одноимённых с выбранными объектов
' Условие: требуется компонент TCScript.dll
'============================================================
With CreateObject("TCScript.Helper")
  .Pause = 0 : .Wait = True : Clip = .GetTextFromClip
  .LockTC True : .NoArrayReturn = True: If .GetInfo("TP") = "" Then _
  .SetTextToClip .GetSrcSelectedFiles(1) Else _
  .SetTextToClip Replace(.GetSrcSelectedFiles(1), .GetInfo("SP"), "")
  .SendCommand 4006, True : .SendCommand 2033, True
  .SendCommand 4006, True : .LockTC False : .SetTextToClip Clip
End With


Как временную замену команде - сделал так:
Code:
  .SendCommand 2018, True
  .Sleep(10)
  Sel = .GetTextFromClip
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group