App Parameters

What must be done in order to allow my application to take in parameters, such as 'myapp.exe /myparam1 /myparam2' ?

Use the command function...

Code:

---

MsgBox Command

---

and if you want to test certain command line arguments without compiling your app goto Project/Project Properties and fill in the Command Line Arguments Edit Box.

VB Supports Command Line Parameters
Through Command

Command Doesn't Parse The
Command Line For You. It
Just Stores The Command Line
Params As Such

In Your Example : MyAPP.Exe /myparam1 /myparam2

Command Stores "/myparam1 /myparam2".

For More Details And Samples EMail Me.

its pretty easy to parse though.
dim params(10) as string
dim cl as integer
dim ltr as string
der = 0
for cl = 1 to len(command$)
do
ltr = mid$(command$, cl, 1 )
loop while ltr = " "
if ltr = / or ltr = "-" or ltr = "\" then
der = der + 1
if der = 11 then exit sub
end if
params(der) = params(der) + mid$(command$, cl, 1)
next cl
'may contain bugs. But basically, it parses command$ into an array, removing spaces.

If you have VB6 you can use the Split function...

Code:

---

Dim v
Dim iCt as Integer

v = Split(Command, " ")

For iCt = LBound(v) to UBound(v)
 Debug.Print v(ict)
Next iCt

---

and if you have VB4 or 5 you can use the Split2 function on this thread.

but what results will he get if they put more than one space between parameters? That's why my little routine looped back on itself as long as it found spaces.
This is the actual sub i use in my dos vb. (with sub declaration corrections)
I did not write it. It is copied from the visual basic 1.0 help file.

Code:

---

SUB Comline (NumArgs as integer, Args(99) as string, MaxArgs)
 CONST TRUE = -1, FALSE = 0

    NumArgs = 0: in = FALSE
    ' Get the command line using the COMMAND$ function
    Cl$ = COMMAND$
    L = LEN(Cl$)
    ' Go through the command line a character at a time
    FOR I = 1 TO L
          C$ = MID$(Cl$, I, 1)
          ' Test for character being a blank or a tab
          IF (C$ <> " " AND C$ <> CHR$(9)) THEN
          ' Neither blank nor tab; test if you're already inside
          ' an argument
              IF NOT in THEN
              ' You've found the start of a new argument
                    ' Test for too many arguments
                      IF NumArgs = MaxArgs THEN EXIT FOR
                      NumArgs = NumArgs + 1
                      in = TRUE
              END IF
              ' Add the character to the current argument
              Args$(NumArgs) = Args$(NumArgs) + C$
          ELSE
          ' Found a blank or a tab.
              ' Set "Not in an argument" flag to FALSE
              in = FALSE
          END IF
    NEXT I

 END SUB

---