VB6: Parameter an kompilierte exe übergeben

[developer]

Hallo,

ich möchte eine exe erzeugen die auch Parameter empfangen kann.

Sie sollte dann also von aussen mit dem Dateinamen und einen Zusatz, der den Parametern entspricht, starten.

Ähnlich also wie der DOS format Befehl: "format a:", "format a: \q" oder so...

[developer]

Hat sich erledigt. Geht mit dem Command$ Befehl:

Function BefZeileAbrufen(Optional MaxArgs)

   ' Variablen deklarieren.

   Dim C, BefZl, BefZlLng, InArg, I, ZahlArgs

   ' Feststellen, ob MaxArgs angegeben wurde.

   If IsMissing(MaxArgs) Then MaxArgs = 10

   ' Datenfeld passender Größe erstellen.

   ReDim ArgFeld(MaxArgs)

   NumArgs = 0: InArg = False

   ' Befehlszeilenargumente abrufen.

   BefZl = Command()

   MsgBox BefZl

   BefZlLng = Len(BefZl)

   ' Befehlszeile Zeichen für Zeichen

   ' durchgehen.

   For I = 1 To BefZlLng

      C = Mid(BefZl, I, 1)

      ' Auf Leerzeichen oder Tabulatoren prüfen.

      If (C <> " " And C <> vbTab) Then

         ' Weder Leerzeichen noch Tabulatoren.

         ' Überprüfen ob bereits in Argument enthalten.

         If Not InArg Then

         ' Anfang des neuen Arguments.

         ' Überprüfen, ob zu viele Argumente verwendet wurden.

            If ZahlArgs = MaxArgs Then Exit For

            ZahlArgs = ZahlArgs + 1

            InArg = True

            End If

         ' Zeichen an aktuelles Argument anfügen.

         ArgFeld(ZahlArgs) = ArgFeld(ZahlArgs) + C

      Else

         ' Tabulator oder Leerzeichen gefunden.

         ' Das InArg-Attribut auf False festlegen.

         InArg = False

      End If

   Next I

   ' Größe des Datenfeldes neu bestimmen, so daß es

   ' gerade alle Argumente aufnehmen kann.

   ReDim Preserve ArgFeld(ZahlArgs)

   ' Datenfeld in Funktionsnamen zurückgeben.

   BefZeileAbrufen = ArgFeld()

End Function