Как быстро скопировать путь к файлу в буфер?

[aka]

Как быстро скопировать путь к файлу в буфер?

[panda]

2aka
почитай хэлп

[Ajax]

2aka
Одна из стандартных команд. cm_CopyNamesToClip и другие.

[Lexua]

А еще просто кликни один раз мышью на пути над окном, а дальше по стадарту...

[Helg]

я сделал кнопку на панели инструментов , прописал комманду cm_CopyFullNamesToClip , и теперь по сравнению с этим FAR отдыхает

[aka]

Немного не удобно следующее.
Нажимаю CTRL + SHIFT + ENTER, полный путь с именем файла копируется в коммандную строку (далее - "к-строка"). А когда в к-строку перемещаюсь, путь заменяется на последнюю команду, которая исполнялась в к-строке.

Как правильно перемещаться в командную строку клавишами или что сделать, чтобы путь не стирался в данной ситуации.

[il_307]

wincmd.ini

[Shortcuts]
......
......
F11=cm_CopyNamesToClip
F12=cm_CopyFullNamesToClip
........

Оч. удобно. Не мышь, но клавиатура

[zzt121]

А я заюзал Ctrl+Shift+Ins на полный путь и Alt+Shift+Ins только на имя. Пользуюсь Очень часто!

[dest]

Стандарт для прогеров ))

[YuG]

Немного не в тему...
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->cm_CopyNamesToClip=2017;Копировать имена файлов<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->Если данный файл является папкой, то получаем<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->WINDOWS\<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->от слэша избавиться можно?

[Evgenych]

<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
от слэша избавиться можно?
<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
можно... но только не с помощью внутренних команд

[Evgenych]

Во!
избавление от слэша

Код: выделить все

Option Explicit

Dim TCS, C, clip

Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand(2017)
Set C=CreateObject("ClipboardHelper.cClipboard")
clip = c.getText
clip = Replace(clip,"\"&VbCrLf,VbCrLf)
If Right(clip,1)="\" then clip=Left(clip,Len(clip)-1)
c.setText clip


P.S. Может кто подскажет, как в VBScript получить символ строки по номеру?

[YuG]

2Evgenych
Если б ты еще подсказал, как это прикрутить...

[Evgenych]

Берешь все это записываешь в файл *.vbs, запускаешь его каким-либо образом, и после этого в буфере оказываются имена выделенных в ТС без слэша в конце.

А! Ну еще надо чтобы были все объекты зарегестрированы (ClipboardHelper и TCScript). Об этом тут писали <a href='http://www.fforum.ru/index.php?showtopic=14575' target='_blank'>http://www.fforum.ru/index.php?showtopic=14575</a>
p.s.
Можно и без ClipboardHelpera обойтись

Код: выделить все

Option Explicit
Dim TCS,clip
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand(2017)
clip = TCS.GetTextFromClip
clip = Replace(clip,"\"&VbCrLf,VbCrLf)
If Right(clip,1)="\" then clip=Left(clip,Len(clip)-1)
TCS.SetTextToClip(clip)