Цитата DJ Mogarych:
|
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 ".\"
Вот может из них можно скомбинировать для создания дубликата именно любого файла?
