如何取得运行参数?

Question

Private Sub Form_Load()
Dim ParaArray() As String
Dim GetString As String
Dim I As Long
GetString = Trim(Command())
If InStr(GetString, "/") = 1 Then
   If Len(GetString) > 1 Then
      GetString = Right(GetString, Len(GetString) - 1)
      ParaArray = Split(GetString, "/", -1, vbTextCompare)
      For I = 0 To UBound(ParaArray())
          MsgBox "Parameter " & I + 1 & ": = " & Trim(ParaArray(I))
      Next
   Else
      MsgBox "Empty Parameter!"
   End If
Else
   If InStr(GetString, "/") = 0 Then
      MsgBox "No Parameter! "
   Else
      MsgBox "Wrong Format"
   End If
End If
End Sub

Answer 1

TO wxy_xiaoyu(然也):我的意思就是用VB编一个程序，通过命令行执行，并且可以获得运行初始化参数。TO Cooly(苦力):我试试看，能用就给分。

Answer 2

TO Cooly(苦力):
你给的方法可以用，但如果我的参数不完整就会出错。例如
c:\a.exe /autorun/空/min /c:\winnt
这样paraarray(1)="" 
    pararray(2)="min" 而不是c:\winnt
因为我的参数可能有很多，中间有可能是空的，也有可能是固定某个位置的参数还有二级参数
怎么处理呢？

Answer 3

Command()可以取到程序的参数行，剩下的工作就是分析和处理参数结构和数据了，这些你应该可以按照自己的要求进行操作，我给你的只是示例。