Vbscript HTA-未终止的字符串contants错误

Vbscript HTA-未终止的字符串contants错误,vbscript,hta,Vbscript,Hta,在我的HTA文件中,我试图实现文件浏览器按钮,但由于某些原因,HTA抱怨字符串常量未终止。我使用vbs文件检查了代码,它可以工作,但在HTA中无法工作 代码片段 Sub StartExec_OnClick Dim objShell, objFile, BrowseForFile Set objShell = CreateObject("Shell.Application") aa =

在我的HTA文件中,我试图实现文件浏览器按钮,但由于某些原因,HTA抱怨字符串常量未终止。我使用vbs文件检查了代码,它可以工作,但在HTA中无法工作

代码片段

        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
Sub-StartExec\u OnClick
Dim objShell、objFile、BrowseForFile
设置objShell=CreateObject(“Shell.Application”)
aa=“关于:FILE.click();新建ActiveXObject('Scripting.FileSystemObject')。GetStandardStream(1)。WriteLine(FILE.value);close();resizeTo(0,0);”
设置objFile=objShell.Exec(“mshta.exe”&Chr(34)&aa&Chr(34))
BrowseForFile=objFile.StdOut.ReadLine
设置objFile=Nothing
Set objShell=Nothing
端接头
。。。;resizeTo(0,0);"
语法分析器错误地处理脚本结束的位置时出现问题,不是您用引号括起来的脚本,而是包含字符串的脚本。字符串中包含的
标记被视为外部脚本的结束标记。只需拆分字符串常量以避免它。

..;resizeTo(0,0);”
解析器错误地处理脚本结束的位置时会出现问题,不是用引号括起来的脚本,而是包含字符串的脚本。字符串中包含的
标记被视为外部脚本的结束标记。只需拆分字符串常量以避免它