Копирование файлов по пути к сетевому объекту

[squadgazzz]

Flasher
попробовал и так и так - не помогло.

[Avada]

squadgazzz
Писать сообщения без заглавных букв и/или знаков препинания — крайне вредная привычка. Кроме того, оверквотинг на форуме запрещён, никакой необходимости полностью цитировать предыдущие сообщения нет. Об этом речь уже была, сейчас получите замечание. Лишнее удалено.

[squadgazzz]

Похоже, я понял в чем проблема.
когда в пути или имени файла присутствуют скобки, то файл не копируется. возможно это как-то решить?

[Flasher]

squadgazzz
"~$clipboard$"

Писать сообщения без заглавных букв и/или знаков препинания — крайне вредная привычка.

Плюсую.

[squadgazzz]

Так в коде есть ~$clipboard$.

[Flasher]

Я в курсе, поэтому выделил совсем другое.

[squadgazzz]

Параметры теперь такие:

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

in (`echo "~$clipboard$"`) do if exist "%%#" (copy /lvуz "%%#" "%P%%~~nx#")

Файлы со скобками не копируются.

[Flasher]

Значит, в чём-то другом причина.

[squadgazzz]

Вообще очень странно, что ни в одной программе не реализовано скачивание(копирование) файлов по ссылке.

[Flasher]

Повторение - мать учения:

пути к сетевым объектам (ни в виде обычного пути 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

[squadgazzz]

Создал текстовый документ, вставил код, поменял расширение на vbs. Файл не перетаскивается на панель инструментов tcm.

[Avada]

squadgazzz
Во-первых, из файловой панели TC должен перетаскиваться (а, например, с Рабочего стола — нет). Во-вторых, для создания кнопки есть и другие способы, кроме перетаскивания файла.

[squadgazzz]

Добавил кнопку. Скопировал путь к файлу. Зашел в нужную мне директорию. Нажимаю на кнопку - меня перекидывает в папку со скриптом. Больше ничего не происходит.

[Avada]

squadgazzz
Перекидывание в папку со скриптом вместо его выполнения может быть, например, в случае, если перед путём с файлу скрипта в поле "Команда" зачем-то добавлено cd. Предъявите здесь точное содержимое этого поля.

[squadgazzz]