/
githubmirror
/
XX-Net
Обзор
Документация
Войти
/
githubmirror
/
XX-Net
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
code/default/launcher/unzip.vbs
11 строк
383 B
Michael.X
3.15.4 release, improve start script.
20 фев 2020, 13:54
20 фев 2020, 13:54
aba20d4
Код
Авторство
О чём код?
Sub Unzip(ZipFile, ExtractTo) Dim objShell: set objShell = CreateObject("Shell.Application") Dim FilesInZip dim ns ZipFile = GetAbslutePath(ZipFile) ExtractTo = GetAbslutePath(ExtractTo) x = CreateDir(ExtractTo) set ns = objShell.NameSpace(ZipFile) set FilesInZip = ns.items() objShell.NameSpace(ExtractTo).CopyHere(FilesInZip) End Sub