denis19
23-12-2022, 14:38
Здравствуйте, подскажите пожалуйста. Есть скрипт, при нажатии на него создаются копии всех файлов которые рядом, они создаются в этой папке что и адрес в скрипте. Надо сделать кнопку в контекстном меню (там будет скрипт), можно ли сделать чтоб через контекстное меню копировало только один выделенный мышкой файл и в любом месте, независимо от адреса в скрипте?
Заранее спасибо.
Folder = "C:\Users\Admin\Desktop\Новая"
Set oFolder = CreateObject("Shell.Application").NameSpace(Folder)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set Items = oFolder.Items: Items.Filter 8256, "*"
For Each F In Items
oFSO.CopyFile F.Path, oFSO.BuildPath(Folder, "(1)" & F)
NExt
Set oFSO = Nothing: Set Items = Nothing: Set oFolder = Nothing
Заранее спасибо.
Folder = "C:\Users\Admin\Desktop\Новая"
Set oFolder = CreateObject("Shell.Application").NameSpace(Folder)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set Items = oFolder.Items: Items.Filter 8256, "*"
For Each F In Items
oFSO.CopyFile F.Path, oFSO.BuildPath(Folder, "(1)" & F)
NExt
Set oFSO = Nothing: Set Items = Nothing: Set oFolder = Nothing