Lancement d'une application appartir d'une ligne de commande
Dr_Progz
Messages postés16Date d'inscriptiondimanche 28 décembre 2003StatutMembreDernière intervention21 février 2007
-
16 janv. 2004 à 18:46
cs_labout
Messages postés1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 2006
-
16 janv. 2004 à 19:08
Salut bref,
lorsque vous taper "notepade.exe fichier.txt" le bloc note souve est charge le fichier spécifié en argument
c'est a dir lors du demarage du bluc note il y a une variable ou il stoque "fichier.txt".
je veut savoir si on peu faire cela en vb est comment
A voir également:
Lancement d'une application appartir d'une ligne de commande
cs_labout
Messages postés1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 20068 16 janv. 2004 à 19:08
labout
Tu as la possibilité de récupérer les paramêtres de la ligne de commande
Dans le load de la form Principale
Dim CmdLine() as string
Cmdline=GetCommandLine
tu place la fonction suivante
Function GetCommandLine(Optional MaxArgs)
' Déclare les variables.
Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
' Vérifie si MaxArgs a été spécifié.
If IsMissing(MaxArgs) Then MaxArgs = 10
' Définit un tableau au format approprié.
ReDim ArgArray(MaxArgs) NumArgs 0: InArg False
' Récupère les arguments de ligne de commande.
CmdLine = Command()
CmdLnLen = Len(CmdLine)
' Analyse de la ligne de commande caractère par caractère.
For I = 1 To CmdLnLen
C = Mid(CmdLine, I, 1)
' Analyse de caractères d'espacement ou de tabulations.
If (C <> " " And C <> vbTab) Then
' Ni espace ni tabulation.
' Vérifie une éventuelle présence dans l'argument.
If Not InArg Then
' Le nouvel argument commence.
' Vérifie si les arguments ne sont pas trop nombreux.
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs + 1
InArg = True
End If
' Concatène un caractère à l'argument courant.
ArgArray(NumArgs) = ArgArray(NumArgs) & C
Else
' Recherche un espace ou une tabulation.
' L'indicateur InArg prend la valeur False.
InArg = False
End If
Next I
' Redimensionne le tableau pour qu'il puisse
' juste contenir les arguments.
ReDim Preserve ArgArray(NumArgs)
' Renvoie le tableau dans le nom de fonction.
GetCommandLine = ArgArray()
End Function
Cmdline recupère un tableau contenant les paramêtres