Si ShellExecute trouve rien ??

Question

Salut...

J'aimerais savoir si c'est possible avec Shellexecute de lui dire que s'il n'ouvre aucun fichier de faire apparaitre du text dans un label.

Mon code  ouvre des contrats mais si le contrat n'existe pas j'aimerais faire apparaitre un message dans un label.

Voici une partie de mon code
If optAssomption = True Then
Internet_Explorer = ShellExecute(Me.hwnd, "open", "m:\Recherches_BPD\actes\BPD_L'Assomption" & strContrat & ".zip", vbNullString, "", SW_SHOWNORMAL)

 ElseIf optMontcalm = True Then
        Internet_ExplorerCPC = ShellExecute(Me.hwnd, "open", "m:\Recherches_BPD\actes\BPD_Montcalm\100000" & strContrat & "_image_001.cpc", vbNullString, "", SW_SHOWNORMAL)
        Internet_ExplorerZIP = ShellExecute(Me.hwnd, "open", "m:\Recherches_BPD\actes\BPD_Montcalm\100000" & strContrat & ".zip", vbNullString, "", SW_SHOWNORMAL)

ElseIf ..... ETC....

Bref je ne sais pas o&#249; mettre le code pour lui dire d'inscrire du texte dans un lable &#233;tant donn&#233; que si le contrat existe il doit seulement ouvri le document et si le document n'Existe pas un texte apparait dans mon label...

Merci d'avance...

cs_Jack · Answer

Salut
... bah test l'existence du fichier avant !
If Dir("m:\Recherches_BPD\actes\BPD_L'Assomption" & strContrat & ".zip") = "" Then MsgBox "existe p&#244;"

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Warning · Answer

Le resultat de la fonction ShellExecute est inferieur ou egal &#224; 32 si il se produit une erreur... tu n'a qu'a faire un test sur la valeur retourn&#233;e par shellexecute...
autrement dit:If Internet_Explorer <32 then label1 "Erreur"
If Internet_ExplorerCPC <32 then label1 "Erreur"If Internet_ExplorerZIP <32 then label1 "Erreur"


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

Si ShellExecute trouve rien ??

2 réponses

Discussions similaires