Comment changer l'extension d'une image ?? [Résolu/Fermé]

Signaler
Messages postés
205
Date d'inscription
dimanche 5 avril 2009
Statut
Membre
Dernière intervention
30 mai 2013
-
Messages postés
205
Date d'inscription
dimanche 5 avril 2009
Statut
Membre
Dernière intervention
30 mai 2013
-
Bonjour,

J'aimerais changer l'extension d'une image avec vb , comment dois je m'y prendre car quand je fais par exemple , si je changer mon fichier 1.txt en fichier2.doc , comment dois je m'y prendre ???
merci de votre attention


2 réponses

Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
83
Bonjour,

Private Function ExtensionFichier(NomFichier As String) As Variant 
    Dim PosPoint As Integer 
    ' 
    If InStr(1, NomFichier, ".") = 0 Then 
  ' le nom du fichier ne comporte pas d'extension 
        ExtensionFichier = False 
    Else 
        While Left(Right(NomFichier, PosPoint), 1) <> "." 
            PosPoint = PosPoint + 1 
        Wend 
       ExtensionFichier = Right(NomFichier, PosPoint - 1) 
    End If 
End Function

Edit:
En cherchant un peu sur ce forum, tu l'aurais trouver: https://forums.commentcamarche.net/forum/affich-13366349-vb-connaitre-extension-d-un-fichier
Messages postés
205
Date d'inscription
dimanche 5 avril 2009
Statut
Membre
Dernière intervention
30 mai 2013
7
Merci infiniment