Скрипт для создания дубликата файла/папки [Версия для КПК]

Показать полную графическую версию : Скрипт для создания дубликата файла/папки

denis19

31-12-2022, 22:04

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

DJ Mogarych

01-01-2023, 07:48

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

denis19

01-01-2023, 11:25

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

01-01-2023, 14:56

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"