ShellExecute et IF

Question

Salut &#224; tous...

J'aimerais savoir si c'est possible d'&#233;x&#233;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&#232;me c'est quand dans mon r&#233;pertoite qui contient plus de 2000 fichiers .CPC et .ZIP. Je veux si le fichier n'est pas d&#233;sarchiver d&#233;marrer le fichier .ZIP

J'espere que je suis assez clair.... 

Enfin j'attends de vos nouvelles et merci d'avance

crenaud76 · Answer

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

ShellExecute et IF

1 réponse

Discussions similaires