コマンドライン引数の取得

HTAファイルは起動時にコマンドラインを取得することができますが、通常はHTAファイルそのもののパスも含んでいます。それからコマンドラインのみを抜き出して返す関数です。起動時にコマンドラインが設定されていない場合は空文字を返します。

HEADに記述
MsgBox "起動時の引数は-" & getCommandLine & "-です。" Function getCommandLine() Dim cml cml = objHTA.commandLine 'objHTAはHTAタグのIDで指定した名前を入れる getCommandLine = Trim(Mid(cml, InStr(2, cml, """")+1)) End Function

• HTTP経由の場合、HTAオブジェクトのコマンドラインは空文字になるため、引数を設定することはできません。
• commandLineが"C:\WINDOWS\sample.hta" aaa /s "RunDll32.dll,35" であるとき、返される文字列は aaa /s "RunDll32.dll,35" です。
• この関数では純粋にコマンドラインからHTAのパスを除いたものだけを返します。