Discussion :

[frenchie_st]

Je voudrais réaliser un programme qui serait lancé via une invite de commande et qui fournirait un output.
Par exemple, il me sortirait "1" si une condition est réalisée dans ce programme et il me sortirait "0" dans le cas contraire.
Comment puis-je dire à mon programme de me sortir ces valeurs et sous quelles forme vais-je pouvoir les récupérer?

Merci d'avance si vous savez m'aider,

François

[Megaxel]

Bonjour!
Sous quel environnement veux-tu faire ça? En VB, ou en VBA?
Parce que ce dont tu parles est une simple fonction, mais qu'est-ce que tu veux tester? Et sous quelle forme veux-tu récupérer ton "output"? Pas un pop-up? Dans un fichier texte?
Bref, tu n'en dis pas assez pour qu'on puisse t'aider réellement...

[frenchie_st]

Je travaille sous vb6.

Je travaille en fenêtre de commandes donc la solution des pop-ups ne me convient pas.
Je ne sais pas vraiment quelle genre de sortie je peux utiliser... c'est pour ca que je demandais quelles solutions étaient possibles... Un fichier pourrait être une solution mais est-ce que d'autres existent?

En fait dans mon programme, je teste d'abord la connexion à un serveur. Si cette connexion existe, un fichier contenant une liste d'utilisateurs se trouvant sur ce serveur est généré. Sinon rien n'est généré.
Si un fichier a été généré, je voudrais que le programme me donne par exemple "1" en sortie" ou "0" dans le cas contraire.

J'espère avoir été plus complet...

Merci d'avance...

[Megaxel]

Ok, ça se précise.
En fait, dans ton programme "global", cette partie sera juste une procédure qui teste la présence d'un fichier (éventuellement à la bonne date) dans un répertoire, et qui retourne 1 ou 0 si le fichier existe.
Si c'est bien ce que tu veux, ça ne pose aucun problème, avec le File Scripting Object. C'est une librairie de fonctions sur la gestion de fichier.
Sinon, tu as la fonction "toute bête"

Code :

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

1
2
 
DIR("Repertoire\Fichier.xxx")

qui te dira si ce fichier existe.

Et tu n'auras qu'à appeler cette procédure au moment où tu en as besoin dans ton programme principal.

[Megaxel]

Allez, j'ai ça, dans un coin:

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
 
Function LeFichierExiste(ByVal NomRep As String, ByVal NomFichier As String, ByVal Alerte As Boolean) As Boolean
    'Cette fonction vérifie l'existence du fichier "NomFichier" dans le répertoire "NomRep". S'il s'y trouve,
    'elle renvoie "True". Sinon, elle renvoie "False", et un message prévient l'utilisateur.
 
    LeFichierExiste = False
    If Dir(NomRep & "\" & NomFichier, vbHidden) <> "" Then
        'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
        LeFichierExiste = True
    Else
        If Alerte = True Then
            Msg = MsgBox("Le fichier " & NomRep & "\" & NomFichier & " n'existe pas!", vbCritical, "Développez.com")
        End If
    End If
 
End Function

Bon, ça ne donne pas 0 ou 1, mais VRAI ou FAUX, mais ça devrait t'aller...

[AlainTech]

Oh, Megaxel, faut bien lire l'énoncé...

frenchie_st dit qu'il travaille dans l'invite de commande, autrement dit, dans une DOS box.
Ce qu'il veut, c'est que, quand son programme se termine, il renvoie une valeur.

On n'est donc pas au niveau d'une procédure VB.

Personnellement, je ne vois pas comment faire le passage d'info entre applications.