如何使HTA应用程序接受命令行参数？

Question

Sub Window_onLoad
    arrCommands = Split(ITTool.commandLine, chr(34))
    For i = 3 to (Ubound(arrCommands) - 1) Step 2
        MsgBox arrCommands(i)
    Next
End Sub

运行HTA应用程序时，我得到：

arrCommands未定义

我正在尝试制作可以接受命令行参数（可选）的HTA应用程序。

Answer 1

您的脚本部分包含一条Option Explicit语句。这使得必须先定义变量，然后才能使用它们。Dim arrCommands, i在您的过程中添加一行：

Sub Window_onLoad
    Dim arrCommands, i
    arrCommands = Split(ITTool.commandLine, chr(34))
    For i = 3 to (Ubound(arrCommands) - 1) Step 2
        MsgBox arrCommands(i)
    Next
End Sub