Скрипт для создания дубликата файла/папки
 

Есть такая утлита FileMenuTools, в контекстном меню разные команды. И есть кнопка "Создать дубликат", навёл мышкой на файл и рядом с файлом создаётся копия этого файла. (папки тоже создаёт). Пользуюсь утлитой только из за одной этой команды. А хотелось бы избавиться от лишнего хлама в меню.
И вопрос, можно ли сделать такой скрипт или бантик, так же создавать копию при наведении мышки?
Какие то ответы тут читал, но там в скрипт надо вставлять адреса, откуда и куда копировать. Это не то. Надо чтоб рядом создавалось
Заранее спасибо.

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 ".\"

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

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