私は実際に興味深いトリックでこの問題を解決しました。方法は次のとおりです...
次のコードを含む「vbshelper.inc」という名前の外部 vbscript「インクルード ファイル」を作成します。
function stuffKeys(x)
Set wshShell = CreateObject("WScript.Shell")
wshShell.Sendkeys(x)
end function
HTML コード ヘッダー内に、次の行を最初の < Script> 要素として配置します...
<Script language="VBScript" src="vbshelper.inc">
function defaultFldr()
stuffKeys(" C:\Temp\*.txt~")
end function
function do_something()
.
.
. etc
end function
</Script>
[注-1 ' C:\Temp\*.txt~' の C の前にスペースがあり、.txt の後にチルダ ( ~ ) があります。]
[注-2 Type="text/vbscript" ではなく Script type=VBScript を指定する必要がありました。なぜこれが必要なのかわかりません。]
後で、HTML コードで、次のようなボタンを作成します...
<input type="File" id="srcFile" onchange="do_something()" onclick="defaultFldr()">
[注 3: onclick コマンドから直接 stuffKeys 関数を呼び出そうとしましたが、うまくいきませんでした。おそらく、フォルダー文字列を一重引用符で囲む必要があるためです。]
つまり... HTML または HTA ページ内から WScript オブジェクトを作成することはできませんが、外部のインクルード ファイルから参照すると機能します。「vbshelper.inc」ファイルは、HTML または HTA ファイルと同じフォルダーに保管してください。