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

cs_bigup Messages postés 3 Date d'inscription lundi 26 août 2002 Statut Membre Dernière intervention 12 mars 2003 - 26 août 2002 à 10:56
cs_dido Messages postés 41 Date d'inscription mardi 14 mai 2002 Statut Membre Dernière intervention 17 janvier 2003 - 26 août 2002 à 11:11
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

cs_dido Messages postés 41 Date d'inscription mardi 14 mai 2002 Statut Membre Dernière intervention 17 janvier 2003
26 août 2002 à 11:11
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

0
cs_dido Messages postés 41 Date d'inscription mardi 14 mai 2002 Statut Membre Dernière intervention 17 janvier 2003
26 août 2002 à 11:11
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
0
Rejoignez-nous