Changer l'extension d'un fichier...

cs_jerbi Messages postés 7 Date d'inscription mercredi 19 février 2003 Statut Membre Dernière intervention 21 décembre 2004 - 21 févr. 2003 à 08:32
cs_jerbi Messages postés 7 Date d'inscription mercredi 19 février 2003 Statut Membre Dernière intervention 21 décembre 2004 - 21 févr. 2003 à 09:24
J'aimerais changer l'extension de fichier en *.txt =>
par exemple: essai1.xyz doit devenir essai1.txt.

Voici la fonction que j'utilise:

Splitname = Split(nomFichier, ".")
Splitname(0) = nom
Splitname(1) = extension

newname = Splitname(0)
Name "F:\fichiers" & nomFichier As "F:\fichiers" & newname & ".txt"

Le prob, c'est que mon fichier est rnommé ".txt*. Visiblement, il n'arrive pas à garder le nom... HELP !!!

2 réponses

xabi62 Messages postés 84 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 19 juillet 2006
21 févr. 2003 à 09:14
Je pense que ca, ca devrait marcher...

Fichier = "file.tmp"
NomFichier = Mid(Fichier, 1, Len(Fichier) - 4)
Extension = Mid(Fichier, Len(Fichier) - 3)
Name "F:\fichiers" & NomFichier As "F:\fichiers" & NewName & ".txt"

XaV
0
cs_jerbi Messages postés 7 Date d'inscription mercredi 19 février 2003 Statut Membre Dernière intervention 21 décembre 2004
21 févr. 2003 à 09:24
Ok, c'est parfait...un grand merci !
0
Rejoignez-nous