Как получить приложение 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 undefined».

Я пытаюсь сделать приложение HTA, которое accepts command line arguments (необязательно).

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