Flasher
|
 Posted: Sat Jul 07, 2012 13:40 Post subject: |
 |
|
| LonerD wrote: | | Наверное, проще писать закладки в сторонний файл |
Не хотелось плодить файлы. Так-то по сложности одинаково:
| Code: | '================================================================================
' Переход к файлу-закладке / запомнить путь к файлу под курсором
' Параметр: %V%Z
'================================= Путь к TCMC ==================================
TCMC = """%COMMANDER_PATH%\Utils\TCMC\TCMC.exe"""
'================================================================================
Dim WSH : Set WSH = CreateObject("WScript.Shell")
'=========================== Путь к файлу с записью =============================
File = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%") & "\Scripts\Bookmark.txt"
'================================================================================
With CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Line = Trim(.OpenTextFile(File, 1).ReadLine)
Error = Err.Number : On Error GoTo 0
Set FW = .OpenTextFile(File, 2, True)
If Error > 0 Or Line = "" Or InStr(Line, ":\") = 0 Then
FW.Write WScript.Arguments(0)
Else
WSH.Run TCMC & " cds """ & Line & "\'"" """""
FW.Write " "
End If : FW.Close : Set WSH = Nothing
End With |
| LonerD wrote: | | если запомнить каталог (или переход на каталог выше) - то скрипт не может вернуться к запомненному каталогу |
Ты сам поставил задачу только по файлам. А к каталогу можно вернуться только с его открытием, если, конечно, не эмулировать нажатие Enter после захода, но без блокировки с хелпера будет моргать, что не есть гуд. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
