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: TC не понимает библиотеки Windows 7 
Author Message
Flasher



PostPosted: Tue Jul 12, 2011 22:08    Post subject: Reply with quote

ales128 wrote:
или можно через путь
Так о нём то и шла речь. Не откроет.

Лично мне от скрипта хватило:
Code:
' Открыть файл library-ms
' Во внутренних ассоциациях TC назначить скрипт с аргументом "%1" на *.library-ms
'===========================================================
F = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1).ReadAll
pos1 = InStr(F,"<url>")+len("<url>")
pos2 = InStr(F,"</url>")
if pos2 >= pos1 Then Dir = mid(F,pos1,pos2-pos1)
CreateObject("WScript.Shell").Exec"%COMMANDER_PATH%\Totalcmd.exe /O /S /L=""" & Dir & """"


Last edited by Flasher on Mon Jul 18, 2011 03:05; edited 1 time in total
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group