Filenames VbScript hta-通过链接打开新的hta并检索正确的文件名_Filenames_Hta

Filenames VbScript hta-通过链接打开新的hta并检索正确的文件名

Filenames VbScript hta-通过链接打开新的hta并检索正确的文件名,filenames,hta,Filenames,Hta,我有两个档案；“1.hta”和“2.hta” “1.hta”包含指向文件“2.hta”的简单链接 “2.hta”在“独立”-->FileName=2.hta启动时工作正常但是，通过链接从“1.hta”启动“2.hta”，我得到-->文件名=1.hta 我需要一种方法来确定正确的文件名，或者hta是否总是检索第一个/起始实例的文件名？您可以这样尝试： <html> <head> <title>HTA Launch another HTA</title&g

我有两个档案；“1.hta”和“2.hta”

“1.hta”包含指向文件“2.hta”的简单链接

“2.hta”在“独立”-->FileName=2.hta启动时工作正常

但是，通过链接从“1.hta”启动“2.hta”，我得到-->文件名=1.hta

我需要一种方法来确定正确的文件名，或者hta是否总是检索第一个/起始实例的文件名？

您可以这样尝试：

<html>
<head>
<title>HTA Launch another HTA</title>
<HTA:APPLICATION
     SINGLEINSTANCE="yes"
     WINDOWSTATE="maximize"
>
</head>
<SCRIPT Language="vbscript">
Sub Execute(File)
 Dim ws
 Set ws = CreateObject("wscript.shell")
 ws.run chr(34) & File & chr(34)
End sub
</SCRIPT>
<body>
<h1>This is test hta 1 ONE</h1>
<a href="#" onClick="Call Execute('2.hta')">Start the HTA2</a>
</body>
</html>


HTA推出另一个HTA
子执行（文件）
昏暗的天气
设置ws=CreateObject（“wscript.shell”）
ws.run chr（34）和文件&chr（34）
端接头
这是测试HTA1

我稍微改进了您问题的格式措辞。请查看我的更改以确保它们对您有效。这需要设置

单实例，如果不允许，从location.href，无需启动新的mshta进程，难道不更容易提取文件名吗？.THX Hackoo，代码有效，是的，“location.href”更容易，而且我所追求的提示…：）
FullName = replace(oApp.commandLine,chr(34),"")  'oApp = HT Application ID
arrFN=split(FullName,"\")  
FileName = arrFN(ubound(arrFN))  
SourceDir=replace(FullName,FileName,"")

<html>
<head>
<title>HTA Launch another HTA</title>
<HTA:APPLICATION
     SINGLEINSTANCE="yes"
     WINDOWSTATE="maximize"
>
</head>
<SCRIPT Language="vbscript">
Sub Execute(File)
 Dim ws
 Set ws = CreateObject("wscript.shell")
 ws.run chr(34) & File & chr(34)
End sub
</SCRIPT>
<body>
<h1>This is test hta 1 ONE</h1>
<a href="#" onClick="Call Execute('2.hta')">Start the HTA2</a>
</body>
</html>