Страница 4 из 6

Добавлено: Ср окт 12, 2011 23:48
Avada
sa
Почему к текущему, когда элемент [..] обрабатывается (например при Drag&Drop на него) именно как вышележащий каталог относительно открытого в панели подкаталога?

Добавлено: Чт окт 13, 2011 00:05
sa
Avada
Я говорил о фактическом результате работы скрипта при постановке на [..].

Добавлено: Чт окт 13, 2011 04:05
Flasher
sa писал(а):Вообще-то к текущему каталогу.
К какому из? :) Тогда уж к активному или текущему в активной панели. Уже предполагал, что ты придирёшься, править не хотелось...
Исходный вариант процитирован в следующем посте.

Добавлено: Чт окт 13, 2011 07:20
sa
Flasher писал(а):К какому из?
К тому, для которого задумывалась фича. :D

Добавлено: Пт апр 13, 2012 14:34
skyinfire
Что-то у меня копирование через IE иногда криво работает.
Исправил скрипт - если зарегистрирован TCWSHelper, то копирование выполняется через него.
а где скачать исправленный скрипт?
А то у меня при пользовании скриптом в диспетчере задач начинают накапливаться процессы iexplore, и когда их становится штук 20, скрипт выдает ошибку.

Добавлено: Пт апр 13, 2012 14:47
Flasher
skyinfire
Скрипт Batya проверяет регистрацию Хелпера. Если её нет, то выполняется мой метод с IE.
Обычно такие процессы появляются при ошибках или пустом буфере.

Добавлено: Пт апр 20, 2012 00:06
Nik2012
Здравствуйте. У меня похожий вопрос. Надеюсь автор не будет против..
Можно-ли дополнить этот скрипт, чтоб и имена файлов копировались без расширения? Так-же как имена папок без слеша? Такое возможно? В данный момент у меня имена файлов копируются с расширением.
Код использовал с первой страницы с параметром %F

[mod="Avada"]Текст кода заменён ссылкой.[/mod]

Добавлено: Сб апр 21, 2012 10:06
Flasher
Nik2012

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

T = Replace(CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1).ReadAll, "\" + chr(13), chr(13)) 
Text2Clip Mid(T, 1, Len(T) - 2)
заменить на

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

With CreateObject("Scripting.FileSystemObject")
  T = Replace(.OpenTextFile(WScript.Arguments(0), 1).ReadAll, "\" + chr(13), chr(13))
  For Each N in Split(T, vbNewLine) : NT = NT & vbNewLine & .GetBaseName(N) : Next
End With : Text2Clip Mid(NT, 3, Len(NT) - 4)

Добавлено: Сб апр 21, 2012 12:48
Nik2012
Flasher, Вот спасибо! Жить стало немного легче :)

Добавлено: Пн апр 23, 2012 22:13
skyinfire
Скрипт Batya проверяет регистрацию Хелпера. Если её нет, то выполняется мой метод с IE.
Обычно такие процессы появляются при ошибках или пустом буфере.
я так и не понял, где скачать обновленный скрипт или как зарегистрировать TCWSHelper?

Добавлено: Пн апр 23, 2012 23:50
Flasher
skyinfire
Обновлённого скрипта нет. Он тот же. Как регистрировать компонент написано в ReadMe.

Добавлено: Ср май 02, 2012 20:23
skyinfire
Flasher
я извиняюсь, но в ридми чего? Просмотрел справку по ТС - там поиск ничего не дал. Можно какую-то ссылку, где написано как регистрировать. Благодарю.

Добавлено: Ср май 02, 2012 20:59
MVV
Странный вопрос. Тебе что регистрировать надо? Хелпер? Тогда при чем тут справка по тоталу? Читай справку по хелперу. :D

Добавлено: Пт май 04, 2012 10:36
Pumpman
А есть ли среди стандартных переменных переменная, которая обозначает букву диска, с которого запущен ТС (типа %COMMANDER_PATH%)? Если нет, то как её выцепить для запуска другой проги с этого диска?
Спасибо.

Спасибо, разобрался с помощью соседней ветки: %COMMANDER_DRIVE%

[mod="Avada"]Замечание за нарушение правил форума.[/mod]

Добавлено: Чт май 24, 2012 13:19
CaptainFlint
[mod="CaptainFlint"]Оффтоп выделен в отдельную ветку Дополнительные команды в контекстном меню перетаскивания.[/mod]