ales128
|
 Posted: Tue Jul 12, 2011 20:03 Post subject: |
 |
|
Сделал такое решение:
Задаю внутреннюю ассоциацию TC
*.library-ms -- d:\Library-ms.vbs
Содержимое файла d:\Library-ms.vbs:
| Code: | dim objArgs
dim arg1
Const ForReading = 1
Dim fso, f
dim pos1,pos2
dim dir
'===============
sub main
Set objArgs = WScript.Arguments ' Создаем объект WshArguments
For Each Arg In objArgs
s=s & Arg & " " ' Формируем строки со значениями аргументов
arg1=Arg
Next
if s="" then
msgbox("Ошибка аргумента")
exit sub
end if
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(s, ForReading)
TextFile = f.ReadAll
if err.number <> 0 then
msgbox("Ошибка чтения файла")
exit sub
end if
on error goto 0
pos1=instr(TextFile,"<url>")+len("<url>")
pos2=instr(TextFile,"</url>")
if pos2 >= pos1 then
dir=mid(TextFile,pos1,pos2-pos1)
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run """C:\Program Files (x86)\totalcmd\TOTALCMD.EXE"" " & dir
rem msgbox(dir)
else
msgbox("Ошибка в файле библиотеки:" + TextFile)
exit sub
end if
end sub
'===============
Call Main |
По нажатию Enter на файле библиотеки открывается новый TC с нужной директорией
Код сырой, набросал лишь бы работало
Но идея стоящая  (себя не похвалишь - никто не похвалит) |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
