Récupérer l'extension d'un nom de fichier

Messages postés
3
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
12 mars 2003
-
Messages postés
41
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
17 janvier 2003
-
pour pouvoir pour en fait pouvoir faire un test ( dans mon cas, savoir si c'est un son wav ou vidéo avi pour pouvoir le periph correspondant)

2 réponses

Messages postés
41
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
17 janvier 2003

Salut,
essaie ca (remplace NomDuFichier par le nom de ton fichier donc)

    MaVar = StrReverse(NomDuFichier) 'on renverse la chaine
    MaVar = Left(MaVar, InStr(1, MaVar, ".") - 1) 'on recupere la position du "." de l'extension
    MaVar = StrReverse(MaVar) 'On remet la chaine ds le bon ses pour afficher extension

Messages postés
41
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
17 janvier 2003

Salut,
essaie ca (remplace NomDuFichier par le nom de ton fichier donc)

    MaVar = StrReverse(NomDuFichier) 'on renverse la chaine
    MaVar = Left(MaVar, InStr(1, MaVar, ".") - 1) 'on recupere la position du "." de l'extension
    MaVar = StrReverse(MaVar) 'On remet la chaine ds le bon ses pour afficher extension



Salut