Sujet Précédent Sujet Suivant

ShellExecute et IF

cs_JeffC1977 Messages postés 926 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 10 septembre 2010 - 9 mars 2005 à 14:49
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 9 mars 2005 à 15:28
Salut à tous...

J'aimerais savoir si c'est possible d'éxécuter un shellexecute en utilisant un IF

Voici mon code
If optAssomption = True Then
Internet_ExplorerCPC = ShellExecute(Me.hwnd, "open", "m:\Recherches_BPD\actes\BPD_L'Assomption" & strContrat & ".cpc", vbNullString, "", SW_SHOWNORMAL)

Else: Internet_ExplorerZIP = ShellExecute(Me.hwnd, "open", "m:\Recherches_BPD\actes\BPD_L'Assomption" & strContrat & ".zip", vbNullString, "", SW_SHOWNORMAL)
End If
End Sub

Bon ce code ne fonctionne pas mais j'aimerais savoir si je peux lui dire d'ouvrir un fichier .CPC et si ce fichier n'existe pas alors d'ouvrir le .ZIP

Le problème c'est quand dans mon répertoite qui contient plus de 2000 fichiers .CPC et .ZIP. Je veux si le fichier n'est pas désarchiver démarrer le fichier .ZIP

J'espere que je suis assez clair....

Enfin j'attends de vos nouvelles et merci d'avance

1 réponse

Réponse 1 / 1
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
9 mars 2005 à 15:28
If optAssomption.Value Then
Internet_ExplorerCPC = ShellExecute(Me.hwnd, "open", "m:\Recherches_BPD\actes\BPD_L'Assomption" & strContrat & ".cpc", vbNullString, "", SW_SHOWNORMAL)

Else
Internet_ExplorerZIP = ShellExecute(Me.hwnd, "open", "m:\Recherches_BPD\actes\BPD_L'Assomption" & strContrat & ".zip", vbNullString, "", SW_SHOWNORMAL)
End If

Ca, ca devrait passer normalement

Christophe R
0
Rejoignez-nous