Discussion :

[ssakhri]

Salut tout le monde,
cher amis, je cherche à recupérer les parametres passé à mon application VB 6,

en Delphi c'était par : paramCount et paramStr, mais comme je suis nouveau en VB, je ne connais pas comment ça se passe

Merci d'avance

[avigeilpro]

Il me semble que c'est quelque chose comme App.Commande mais cela contient toute l'adresse de commande c'est à dire l'adresse de l'executable ainsi que les paramètre il me semble.

[mdriesbach]

Bonjour.

Command() retourne la chaîne de caractères passée en paramètre à l'exécutable.
Après il faut utiliser les fonctions de traitement des chaînes de caractères : Split, InStr, Mid, ...

Je ne crois pas qu'il existe un moyen d'accéder directement au différents paramètres séparément.

Cordialement,

Mathieu Driesbach.

[zazaraignée]

Salut

Voici ce que j'ai trouvé dans l'aide de VB (en anglais chez moi... désolée)

Command Function Example
This example uses the Command function to get the command line arguments in a function that returns them in a Variant containing an array.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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

[ssakhri]

Merci cher ami, c'est résolu