Flasher
|
 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) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
