command line arguments..

What's the format for capturing command line arguments passed to a VB app?

Following is the MSDN example code for getting command line arguments. It's a bit long winded. The basic function that returns the command line arguments is simply...

strCmdLine = Command()

Hope this helps.

JC.

MSDN Command Line Example:

Code:

---

Function GetCommandLine(Optional MaxArgs)
  'Declare variables.
  Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
  'See if MaxArgs was provided.
  If IsMissing(MaxArgs) Then MaxArgs = 10
  'Make array of the correct size.
  ReDim ArgArray(MaxArgs)
  NumArgs = 0: InArg = False
  'Get command line arguments.
  CmdLine = Command()
  CmdLnLen = Len(CmdLine)
  'Go thru command line one character
  'at a time.
  For I = 1 To CmdLnLen
      C = Mid(CmdLine, I, 1)
      'Test for space or tab.
      If (C <> " " And C <> vbTab) Then
        'Neither space nor tab.
        'Test if already in argument.
        If Not InArg Then
        'New argument begins.
        'Test for too many arguments.
            If NumArgs = MaxArgs Then Exit For
            NumArgs = NumArgs + 1
            InArg = True
        End If
        'Concatenate character to current argument.
        ArgArray(NumArgs) = ArgArray(NumArgs) & C
      Else
        'Found a space or tab.
        'Set InArg flag to False.
        InArg = False
      End If
  Next I
  'Resize array just enough to hold arguments.
  ReDim Preserve ArgArray(NumArgs)
  'Return Array in Function name.
  GetCommandLine = ArgArray()
End Function

---

thanks.. I just found that same example :)

in ur sub main u can put

Code:

---

myString = Command$ 'too

---

does anyone know how to retrieve the individual args?

Depends on how the arguments are divided. Using the split function is probably the simplest way, or you can write your own function to break the line down depending on a certain character.