| View previous topic :: View next topic |
| Author |
Message |
squadgazzz
Joined: 14 Sep 2015
Posts: 16
|
 (Separately) Posted: Thu Oct 22, 2015 17:33 Post subject: |
 |
|
Flasher
попробовал и так и так - не помогло. |
|
| Back to top |
|
 |
Avada
Joined: 01 Aug 2008
Posts: 10420
Location: Россия, Саратов
|
| (Separately) Posted: Thu Oct 22, 2015 17:40 Post subject: |
|
|
squadgazzz
Писать сообщения без заглавных букв и/или знаков препинания — крайне вредная привычка. Кроме того, оверквотинг на форуме запрещён, никакой необходимости полностью цитировать предыдущие сообщения нет. Об этом речь уже была, сейчас получите замечание. Лишнее удалено.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
squadgazzz
Joined: 14 Sep 2015
Posts: 16
|
| (Separately) Posted: Mon Nov 09, 2015 17:27 Post subject: |
|
|
Похоже, я понял в чем проблема.
когда в пути или имени файла присутствуют скобки, то файл не копируется. возможно это как-то решить? |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Mon Nov 09, 2015 22:38 Post subject: |
|
|
squadgazzz
"~$clipboard$"
| Avada wrote: | | Писать сообщения без заглавных букв и/или знаков препинания — крайне вредная привычка. |
Плюсую.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
squadgazzz
Joined: 14 Sep 2015
Posts: 16
|
| (Separately) Posted: Tue Nov 10, 2015 10:50 Post subject: |
|
|
| Так в коде есть ~$clipboard$. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Nov 10, 2015 11:24 Post subject: |
|
|
Я в курсе, поэтому выделил совсем другое.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
squadgazzz
Joined: 14 Sep 2015
Posts: 16
|
| (Separately) Posted: Tue Nov 10, 2015 12:10 Post subject: |
|
|
Параметры теперь такие:
| Code: | in (`echo "~$clipboard$"`) do if exist "%%#" (copy /lvуz "%%#" "%P%%~~nx#") |
Файлы со скобками не копируются. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Nov 10, 2015 12:16 Post subject: |
|
|
Значит, в чём-то другом причина.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
squadgazzz
Joined: 14 Sep 2015
Posts: 16
|
| (Separately) Posted: Tue Nov 10, 2015 13:47 Post subject: |
|
|
| Вообще очень странно, что ни в одной программе не реализовано скачивание(копирование) файлов по ссылке. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Nov 10, 2015 14:33 Post subject: |
|
|
Повторение - мать учения: | Avada wrote: | | пути к сетевым объектам (ни в виде обычного пути c буквой диска, ни в виде UNC) ссылками называть не принято: этот термин означает нечто совершенно иное. |
Скрипт на пробу:
| Code: | '============================ 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 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
squadgazzz
Joined: 14 Sep 2015
Posts: 16
|
| (Separately) Posted: Tue Nov 10, 2015 16:18 Post subject: |
|
|
| Создал текстовый документ, вставил код, поменял расширение на vbs. Файл не перетаскивается на панель инструментов tcm. |
|
| Back to top |
|
|
Avada
Joined: 01 Aug 2008
Posts: 10420
Location: Россия, Саратов
|
| (Separately) Posted: Tue Nov 10, 2015 16:25 Post subject: |
|
|
squadgazzz
Во-первых, из файловой панели TC должен перетаскиваться (а, например, с Рабочего стола — нет). Во-вторых, для создания кнопки есть и другие способы, кроме перетаскивания файла.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
squadgazzz
Joined: 14 Sep 2015
Posts: 16
|
| (Separately) Posted: Tue Nov 10, 2015 17:06 Post subject: |
|
|
| Добавил кнопку. Скопировал путь к файлу. Зашел в нужную мне директорию. Нажимаю на кнопку - меня перекидывает в папку со скриптом. Больше ничего не происходит. |
|
| Back to top |
|
|
Avada
Joined: 01 Aug 2008
Posts: 10420
Location: Россия, Саратов
|
| (Separately) Posted: Tue Nov 10, 2015 17:49 Post subject: |
|
|
squadgazzz
Перекидывание в папку со скриптом вместо его выполнения может быть, например, в случае, если перед путём с файлу скрипта в поле "Команда" зачем-то добавлено cd. Предъявите здесь точное содержимое этого поля.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
squadgazzz
Joined: 14 Sep 2015
Posts: 16
|
| (Separately) Posted: Tue Nov 10, 2015 18:28 Post subject: |
|
|
 |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
