Ich löste dieses Problem tatsächlich mit einem interessanten Trick. Hier ist, wie ...
Eine externe vbscript 'Include-Datei' genannt 'vbshelper.inc', die den folgenden Code enthält:
function stuffKeys(x)
Set wshShell = CreateObject("WScript.Shell")
wshShell.Sendkeys(x)
end function
In Ihrem HTML-Code-Header, legen Sie die folgenden Zeilen wie Script Ihre erste <> -Element ...
<Script language="VBScript" src="vbshelper.inc">
function defaultFldr()
stuffKeys(" C:\Temp\*.txt~")
end function
function do_something()
.
.
. etc
end function
</Script>
[Anmerkung-1 Es gibt einen Raum vor dem C in 'C: \ Temp \ * .txt ~.' und eine Tilde (~) nach dem .txt. ]
[Anmerkung-2 Ich musste Skripttyp = VBScript angeben und nicht type = "text/vbscript". Ich bin mir nicht sicher, warum dies erforderlich ist]
später in Ihrem HTML-Code, erstellen Sie die Taste so ...
<input type="File" id="srcFile" onchange="do_something()" onclick="defaultFldr()">
[Hinweis-3:. Ich habe versucht, das nennen stuffKeys funktionieren direkt vom onclick-Befehl, aber es hat nicht funktioniert. Wahrscheinlich, weil Sie einfache Anführungszeichen um die Ordnerzeichenfolge verwenden müssen.]
So ... Sie können das WScript-Objekt nicht innerhalb einer HTML- oder HTA-Seite erstellen, aber es funktioniert, wenn auf eine externe Include-Datei verwiesen wird. Bewahren Sie die Datei 'vbshelper.inc' im selben Ordner wie Ihre HTML- oder HTA-Datei auf.
Keine Notwendigkeit zu kommentieren, wie die Verwendung von SendKeys ist eine schlechte Idee ... Es ist nicht mein Code ... – TJR