Comment détecté une extension

OBalais Messages postés 26 Date d'inscription vendredi 21 juin 2002 Statut Membre Dernière intervention 6 juillet 2002 - 22 juin 2002 à 11:36
OBalais Messages postés 26 Date d'inscription vendredi 21 juin 2002 Statut Membre Dernière intervention 6 juillet 2002 - 24 juin 2002 à 08:36
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

fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 3
22 juin 2002 à 14:24
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
cs_Warning Messages postés 516 Date d'inscription samedi 3 février 2001 Statut Membre Dernière intervention 24 octobre 2006 2
23 juin 2002 à 17:34
Au lieu de "= " il te faut mettre "like":

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

Mail:ASC.Warning@caramail.com
Warning
0
OBalais Messages postés 26 Date d'inscription vendredi 21 juin 2002 Statut Membre Dernière intervention 6 juillet 2002
24 juin 2002 à 08:36
Merci beaucoup à vous deux qui m'avez vraiment aidé.
Bonne continuation...

OBalais
0
Rejoignez-nous