Flasher
|
 Posted: Wed Jul 04, 2012 11:31 Post subject: |
 |
|
LonerD
Я себе это так представляю:
| Code: | FN = ""
'================================================================
' Переход к файлу-закладке / запомнить путь к файлу под курсором
' Параметр: %V
'==========================Путь к TCMC===========================
TCMC = """%COMMANDER_PATH%\Utils\TCMC\TCMC.exe"""
'================================================================
FPath = WScript.Arguments(0) : L = Chr(13)
With CreateObject("Scripting.FileSystemObject")
Set Script = .OpenTextFile(WScript.ScriptFullName, 1)
Line = Script.ReadLine : Text = Line & L & Script.ReadAll
Set ScriptW = .OpenTextFile(WScript.ScriptFullName, 2)
If FN = "" Then
ScriptW.Write Replace(Text, "FN = """"" & L, "FN = """ & FPath & """" & L)
Else
If .FileExists(FN) Then
CreateObject("WScript.Shell").Run TCMC & " cds """ & FN & "\'"" """""
ScriptW.Write Replace(Text, Line, "FN = """"" & L)
Else WSCript.Echo "Файла " & FN & " не существует!"
End If
End If : Script.Close : ScriptW.Close
End With |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
