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