Variables 基于按钮单击的关闭设置VBscript变量

我正在做一个项目来重写我过去创造的东西。基本上，它是一个HTA，带有应用程序安装的按钮选择。目前，它是非常长的和重复的，所以我试图清理它一点

如果我将FilePath设置为函数值（FilePath=ApplicationOne（）），那么下面的代码可以正常工作。我需要能够设置的按钮选择的基础上关闭文件路径

我基本上需要一个文件位置分配给FilePath的基础上的按钮点击。它的设置可以不同于下面的设置，但确实需要将其分开，因为应用程序的安装要比下面显示的多得多。这样做将创建一个更干净的设计，并使未来的更新更容易

你有没有想过如何做到这一点

Sub ApplicationInstall  
    Dim FilePath    
    Set WshShell = CreateObject("WScript.Shell")
    FilePath = "SomethingHere" '<---- Change This
    WshShell.Run FilePath, 1, true
End Sub









Function ApplicationOne()
    strPath = "\\This\is\a\file.cmd"
    ApplicationOne = strPath
End Function

Function ApplicationTwo()
    strPath = "\\This\is\a\file.cmd"
    ApplicationTwo = strPath
End Function

Function ApplicationThree()
    strPath = "\\This\is\a\file.cmd"
    ApplicationThree = strPath
End Function

子应用程序安装
暗文件路径
设置WshShell=CreateObject（“WScript.Shell”）
FilePath=“SomethingHere”您可以定义一个包含活动应用程序路径的全局变量（在HTA的任何函数之外）。您的按钮单击事件可以只更新此变量的值，而ApplicationInstall（）子程序可以读取它。它本质上是模块的一个属性

<script language="vbscript">

Dim m_strPath    ' Page/Module-level variable

Sub cmdButton1_Click()
    m_strPath = <application path 1>
End Sub

Sub cmdButton2_Click()
    m_strPath = <application path 2>
End Sub

Sub ApplicationInstall()
    If Len(m_strPath) > 0 Then
        CreateObject("WScript.Shell").Run Chr(34) & m_strPath & Chr(34), 1, True
    End If
End Sub

</script>


Dim m_strPath“页面/模块级变量
子cmdButton1\u单击（）
m_strPath=
端接头
子cmdButton2\u单击（）
m_strPath=
端接头
子应用程序安装（）
如果Len（m_strPath）>0，则
CreateObject（“WScript.Shell”）。运行Chr（34）和m_strPath&Chr（34），1，True
如果结束
端接头
这非常有效，我知道这很简单。。。非常感谢你