HTAのパスを取得

HTA:APPLICATIONタグのcommandLineプロパティから HTAファイルのパス(HTAファイルが入っているフォルダまでのパス)を取得します。

HEADに記述
MsgBox "アプリケーションのパスは-" & getAppPath & "-です。" Function getAppPath() Dim cml cml = objHTA.commandLine 'objHTAはHTAタグのIDで指定した名前を入れる cml = Mid(cml, 1, InStr(2, cml, """")+1) getAppPath = Mid(cml, 2, InStrRev(cml, "\")-2) End Function

• HTAファイルのパスが"C:\WINDOWS\sample.hta"の場合、返される文字列は C:\WINDOWS です。
• HTTP経由の場合、HTAオブジェクトのコマンドラインは空文字になるため、引数を設定することはできません。