Menggunakan Command Line Argument dalam Visual Basic 6

Ternyata cukup mudah untuk mendapatkan paramater / Command Line Argument pada saat menjalankan program yang dibuat dengan menggunakn visual basic 6, karena paramater yang kita berikan pada saat kita menjalankan program tersebut tersimpan dalam variable Command$. Jadi contoh cara penggunaannya seperti berikut :

Sub Main()
   Dim a_strArgs() As String
   Dim blnDebug As Boolean
   Dim strFilename As String
   
   Dim i As Integer
   
   a_strArgs = Split(Command$, " ")
   For i = LBound(a_strArgs) To UBound(a_strArgs)
      Select Case LCase(a_strArgs(i))
      Case "-d", "/d"
      ' debug mode
         blnDebug = True
      Case "-f", "/f"
      ' filename specified
         If i = UBound(a_strArgs) Then
            MsgBox "Filename not specified."
         Else
            i = i + 1
         End If
         If Left(a_strArgs(i), 1) = "-" Or Left(a_strArgs(i), 1) = "/" Then
            MsgBox "Invalid filename."
         Else
            strFilename = a_strArgs(i)
         End If
      Case Else
         MsgBox "Invalid argument: " & a_strArgs(i)
      End Select
      
   Next i
   MsgBox "Debug mode: " & blnDebug
   MsgBox "Filename: " & strFilename
End Sub

Semoga cukup membantu,
Sumber : http://davidnakoko.com/url/p33v