Comment détecté une extension

Signaler
Messages postés
26
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
6 juillet 2002
-
Messages postés
26
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
6 juillet 2002
-
Il me faut trouver l'extension d'un fichier...
Je voudrais qu'en cliquant sur un fichier d'une filelistbox, si le fichier est un exe il se passe quelque chose et que si je clique sur un zip il se passe autre chose...
Le code suivant ne fonctionne pas :
if file1.filename = "*.exe" then
msgbox...

Expliquez moi SVP

OBalais

3 réponses

Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010

Private Sub File1_Click()
If LCase(Right(File1, 4)) = ".exe" Then
MsgBox "Exe"
End If
End Sub

voili

<center>http://www.lynx-asp.fr.st
WebMaster </center>
0
Messages postés
516
Date d'inscription
samedi 3 février 2001
Statut
Modérateur
Dernière intervention
24 octobre 2006
1
Au lieu de "= " il te faut mettre "like":

if file1.filename like "*.exe" then
msgbox...

Mail:ASC.Warning@caramail.com
Warning
0
Messages postés
26
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
6 juillet 2002

Merci beaucoup à vous deux qui m'avez vraiment aidé.
Bonne continuation...

OBalais
0