0
在我的HTA文件中,我試圖實現文件瀏覽器按鈕,但由於某種原因,HTA抱怨未終止的字符串常量。我查用VBS文件中的代碼和它的作品,但不是在HTAHTA - 未終止的字符串contants錯誤
代碼片斷
Sub StartExec_OnClick
Dim objShell, objFile, BrowseForFile
Set objShell = CreateObject("Shell.Application")
aa = "about:<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>"
Set objFile = objShell.Exec("mshta.exe " & Chr(34) & aa & Chr(34))
BrowseForFile = objFile.StdOut.ReadLine
Set objFile=Nothing
Set objShell=Nothing
End Sub