Cкрипт копирования всего содержимого Тест.zip в Тест.7z:
Code:
With CreateObject("Shell.Application")
Set Items = .NameSpace("C:\Тест.zip").Items
Items.Filter 73952, "*"
.NameSpace("C:\Тест.7z").CopyHere Items, 12312
End With
Dec wrote:
Не совсем понял.
А что в этой фразе сокрального?:
Flasher wrote:
открытие в отличии от других расширений происходит в новом окне
Выбрали пункт из меню, открылось ещё одно окно Проводника. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.