[DJ Mogarych]

Ctrl+c Ctrl+v чем не устраивает?

[denis19]

Ctrl+c Ctrl+v чем не устраивает? »

Это не то, надо именно кнопку в контекстное меню.
Нашёл нечто похожее, может это можно переделать. Один копирует сам себя и в новую папку. А надо чтоб создавался рядом и любой файл. Как при обычном копировании, «VBScript - копия.vbs»
'**********************************************
' filesystemobject copyfile
' копирование текущего файла
' copyfile.vbs
'**********************************************
Option Explicit
dim fso, new_folder
' создаем ссылку на объект Scripting.FileSystemObject
set fso=CreateObject ("Scripting.FileSystemObject")
' создаем в текущей папке новый каталог
set new_folder=fso.CreateFolder("Новая папка_vbs")
' копируем текущий сценарий в новую папку под новым именем
fso.CopyFile WScript.ScriptFullName, new_folder & "\тест_vbs.vbs" , true
WScript.Echo "Процесс копирования завершен"

И другой, он создаёт в любом месте уже готовый блокнот с содержимым внутри. ANSI.aci это шаблон из чего создаётся копия

Set objShellApp = CreateObject("Shell.Application")
CreateObject("Scripting.FileSystemObject").GetFile("C:\Windows\ShellNew\ANSI.aci").Copy ".\"

Вот может из них можно скомбинировать для создания дубликата именно любого файла?

[denis19]

Ctrl+c Ctrl+v »

Вот почти сделал, оба варианта рабочие. Но немножко глючит, может создавать копию только после второго нажатия, так как там вначале стоит "^C", происходит вначале копирование. Или создаёт другой файл который копировал перед этим. Что тут можно добавить или убрать?
----
set oScrShell = WScript.CreateObject("WScript.Shell")
oScrShell.SendKeys "^C"
oScrShell.SendKeys "^V"
-------
set oScrShell = WScript.CreateObject("WScript.Shell")
oScrShell.SendKeys "^C ^V"