| View previous topic :: View next topic |
| Author |
Message |
TumanI
Joined: 08 Jul 2007
Posts: 4
|
 (Separately) Posted: Wed Jul 18, 2007 14:20 Post subject: Копировать имя файла с %commander_path% |
 |
|
Есть ли какая нибудь команда для копирвания пути файла, но чтобы в пути была переменная %commander_path%? Либо может возможно создать для этого кнопочку?
Last edited by TumanI on Fri Nov 27, 2009 03:59; edited 2 times in total |
|
| Back to top |
|
 |
Alextp
Joined: 06 Feb 2005
Posts: 4957
|
| (Separately) Posted: Wed Jul 18, 2007 17:53 Post subject: |
|
|
| Можно создать маленькую программу, или скрипт... |
|
| Back to top |
|
|
vserd
Joined: 26 Apr 2005
Posts: 118
|
| (Separately) Posted: Fri Jul 20, 2007 10:16 Post subject: |
|
|
TumanI
поясни что ты хочешь получить в итоге? |
|
| Back to top |
|
|
TumanI
Joined: 08 Jul 2007
Posts: 4
|
| (Separately) Posted: Fri Jul 20, 2007 14:14 Post subject: |
|
|
| vserd wrote: | TumanI
поясни что ты хочешь получить в итоге? |
Команда cm_CopyFullNamesToClip копирует путь к файлу, мне же нужно чтобы вместо статичного адресса был путь типа %commander_path%\plugins\exe\akell.exe
Last edited by TumanI on Fri Nov 27, 2009 02:39; edited 2 times in total |
|
| Back to top |
|
|
vserd
Joined: 26 Apr 2005
Posts: 118
|
| (Separately) Posted: Tue Jul 24, 2007 10:05 Post subject: |
|
|
| Такого нет. |
|
| Back to top |
|
|
Volniy
Joined: 15 Dec 2004
Posts: 585
Location: Местный
|
| (Separately) Posted: Tue Jul 24, 2007 18:29 Post subject: |
|
|
| TumanI wrote: | | нужно чтобы вместо статичного адресса был путь типа %commander_path%\plugins\exe\akell.exe |
Попробуй через этот скрипт (посади его на кнопку, к примеру)
| Code: | ' File: CopyWith%CP%.vbs
' Requirements: WSH Helper for TC by Volniy
' Copyright: (c) 2007, Volniy
Option Explicit
Dim List, TCS, Cnt, Buf, strCP
Const CP = "%commander_path%"
Set TCS = CreateObject("TCScript.Helper")
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
strCP = WshShell.ExpandEnvironmentStrings(CP)
TCS.SendCommand ("cm_CopyFullNamesToClip") 'Копируем в буфер
List = Split(TCS.GetTextFromClip, vbNewLine) ' Получаем массив имен
For Cnt=LBound(List) To UBound(List)
If InStr(1,List(Cnt),strCP, 1)= 1 Then ' strCP найден
Buf = Buf & CP & Mid(List(Cnt), Len(strCP) +1) & vbNewLine
Else
Buf = Buf & List(Cnt) & vbNewLine
End If
Next
TCS.SetTextToClip CStr(Buf)
Set TCS = Nothing
Set WshShell = Nothing
MsgBox "Скопировано имен файлов:" & Cnt, vbInformation, "Завершено!"
WScript.Quit |
|
|
| Back to top |
|
|
TumanI
Joined: 08 Jul 2007
Posts: 4
|
| (Separately) Posted: Wed Jul 25, 2007 23:28 Post subject: |
|
|
To Volniy
Спасибо большое, попробую |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
