Страница 2 из 3
Добавлено: Чт окт 22, 2015 16:33
squadgazzz
Flasher
попробовал и так и так - не помогло.
Добавлено: Чт окт 22, 2015 16:40
Avada
squadgazzz
Писать сообщения без заглавных букв и/или знаков препинания — крайне вредная привычка. Кроме того, оверквотинг на форуме запрещён, никакой необходимости полностью цитировать предыдущие сообщения нет. Об этом речь уже была, сейчас получите замечание. Лишнее удалено.
Добавлено: Пн ноя 09, 2015 16:27
squadgazzz
Похоже, я понял в чем проблема.
когда в пути или имени файла присутствуют скобки, то файл не копируется. возможно это как-то решить?
Добавлено: Пн ноя 09, 2015 21:38
Flasher
squadgazzz
"~$clipboard$
"
Avada писал(а):Писать сообщения без заглавных букв и/или знаков препинания — крайне вредная привычка.
Плюсую.
Добавлено: Вт ноя 10, 2015 09:50
squadgazzz
Так в коде есть ~$clipboard$.
Добавлено: Вт ноя 10, 2015 10:24
Flasher
Я в курсе, поэтому выделил совсем другое.
Добавлено: Вт ноя 10, 2015 11:10
squadgazzz
Параметры теперь такие:
Код: Выделить всё
in (`echo "~$clipboard$"`) do if exist "%%#" (copy /lvуz "%%#" "%P%%~~nx#")
Файлы со скобками не копируются.
Добавлено: Вт ноя 10, 2015 11:16
Flasher
Значит, в чём-то другом причина.
Добавлено: Вт ноя 10, 2015 12:47
squadgazzz
Вообще очень странно, что ни в одной программе не реализовано скачивание(копирование) файлов по ссылке.
Добавлено: Вт ноя 10, 2015 13:33
Flasher
Повторение - мать учения:
Avada писал(а):пути к сетевым объектам (ни в виде обычного пути c буквой диска, ни в виде UNC) ссылками называть не принято: этот термин означает нечто совершенно иное.
Скрипт на пробу:
Код: Выделить всё
'============================ VBS ============================
' Скопировать в активный каталог файл с путём из буфера обмена
' Условие: путь запуска - пустой
'=============================================================
Dim WSH : Set WSH = CreateObject("WScript.Shell")
With WSH
On Error Resume Next
A = .RegRead(R) : If A > 0 Or Err.Number <> 0 Then .RegWrite R, 0, "REG_DWORD"
Path = Trim(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"))
If A > 0 Then .RegWrite R, A, "REG_DWORD"
On Error Goto 0
End With
Title = " Копирование файла из буфера обмена"
If Path = "" Then MsgBox "Буфер обмена не содержит текстовых данных!", 48, Title : WScript.Quit
Set ShA = CreateObject("Shell.Application")
With CreateObject("Scripting.FileSystemObject")
Set Items = ShA.NameSpace(.GetParentFolderName(Path)).Items
Name = .GetFileName(Path) : Items.Filter 9408, Name
End With
If Items.Count Then
CD = WSH.CurrentDirectory
ShA.NameSpace(CD).CopyHere Items, 280
WSH.Run """%COMMANDER_EXE%"" /O /S /A /L=""" & CD & "" & Name & """"
Else MsgBox "Файла " & Path & " не существует!", 48, Title
End If
Добавлено: Вт ноя 10, 2015 15:18
squadgazzz
Создал текстовый документ, вставил код, поменял расширение на vbs. Файл не перетаскивается на панель инструментов tcm.
Добавлено: Вт ноя 10, 2015 15:25
Avada
squadgazzz
Во-первых, из файловой панели TC должен перетаскиваться (а, например, с Рабочего стола — нет). Во-вторых, для создания кнопки есть и другие способы, кроме перетаскивания файла.
Добавлено: Вт ноя 10, 2015 16:06
squadgazzz
Добавил кнопку. Скопировал путь к файлу. Зашел в нужную мне директорию. Нажимаю на кнопку - меня перекидывает в папку со скриптом. Больше ничего не происходит.
Добавлено: Вт ноя 10, 2015 16:49
Avada
squadgazzz
Перекидывание в папку со скриптом вместо его выполнения может быть, например, в случае, если перед путём с файлу скрипта в поле "Команда" зачем-то добавлено cd. Предъявите здесь точное содержимое этого поля.
Добавлено: Вт ноя 10, 2015 17:28
squadgazzz
