○VB6コマンドライン引数の取得

'c:\test.exeという実行ファイルを作成した場合、
'c:\>test aa bb cc dd
'と実行すると、aa bb cc dd の４個のメッセージボックスが表示されます


Sub Main()

    Dim cmdline() As String
    cmdline = Split(Command(), " ") 'スペースで切り分けてコマンドライン引数を配列に格納
    
    Dim ArCount As Integer
    ArCount = UBound(cmdline) '配列サイズを求める
    
    Dim i As Integer
    For i = 0 To ArCount
    
        MsgBox (cmdline(i)) '表示
    
    Next i

End Sub