Как определить текущий каталог в HTA и VBasic - PullRequest
Новая
       77

Как определить текущий каталог в HTA и VBasic

0 голосов
/ 22 февраля 2020

Итак, я написал многофункциональную программу, в настоящее время работающую в HTA, сочетающую в себе JS, VB и HTML, так что пока программа может загружать файлы и запускать исполняемый файл, но я хочу извлечь .zip I загрузив программу, я разработал, как это сделать, определив каталог непосредственно из полного пути, но я хотел бы иметь возможность просто разархивировать его в текущем каталоге, но я не могу найти переменную или любую информацию о том, как определить текущий каталог в стиле VB, который использует HTA, любая помощь будет принята с благодарностью 

<SCRIPT language="VBScript"/>
Option Explicit

Extract "Example.zip", ""

Sub Extract( ByVal myZipFile, ByVal myTargetDir )

    Dim intOptions, objShell, objSource, objTarget

    Set objShell = CreateObject( "Shell.Application" )

    Set objSource = objShell.NameSpace( myZipFile ).Items( )

    Set objTarget = objShell.NameSpace( myTargetDir )

    intOptions = 4

    objTarget.CopyHere objSource, intOptions

    Set objSource = Nothing

    Set objTarget = Nothing (but would like this to define Current directory)

    Set objShell  = Nothing

End Sub
</SCRIPT>
...