Перенесено из темы "Версия 5.43 Работа с HTTPS протоколом"
Цитата: может еще есть какие то варианты?
Сохранить скрипт в файл zip.vbs и закинуть в папку с кибор:
CODE:Set objArgs = WScript.Arguments
ZipFile = objArgs(0)
ExtractTo = objArgs(1)
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
fso.CreateFolder(ExtractTo)
End If
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing
Использование в кибор:
CODE:#define SW_HIDE 0
external(INT, "ShellExecute", "ShellExecuteA", "Shell32.dll");
string zip_vbs = pathfolder()+"zip.vbs"; // путь к файлу zip.vbs
string zip_file = "D:\Kibor\templates.zip"; // путь к архиву
string output = "C:\new_folder\"; // куда распаковать
ShellExecute(0, "open", "cmd.exe", "/C cscript "+" "+zip_vbs+" "+zip_file+" "+output, "", SW_HIDE); |