RENAMEFILE
beltegeuse
Messages postés
44
Date d'inscription
mardi 3 mai 2005
Statut
Membre
Dernière intervention
31 janvier 2009
-
10 août 2006 à 19:21
gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 - 22 juin 2008 à 21:11
gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 - 22 juin 2008 à 21:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29108-renamefile
https://codes-sources.commentcamarche.net/source/29108-renamefile
22 juin 2008 à 21:11
22 juin 2008 à 20:51
Certes c'est beaucoup mieux comme cela mais à l'époque je n'utilisait pas des biblio comme System ... etc.
22 juin 2008 à 00:16
Dim Extension As String =System.IO.Path.GetExtension("filePath")
10 août 2006 à 19:21
mais jsute une remarque sur cette ligne :
myEnd = Microsoft.VisualBasic.Right(myString, 3)
cette ligne a pour but de recupere l'extension du fichier le seul probleme que l'on peut dire (en chipotant) c'est que les extension ne sont pas obliger de ne faire que 3 lettre même si c'est la configuration qui est la plus répandu.
donc j'opterai pour un truc du genre :
'il faut Imports System.String
dim emplacement_point as integer
dim Lfichier as integer
emplacement_point = InStr(1, NameFile, ".") 'donne la postion du point
Lfichier = NameFile.Length
myEnd = Mid(Namefile, emplacement_point, Lfichier - emplacement_point) 'attention on a le point
'avec cette methode sinon il faut faire :
'myEnd = Mid(Namefile, emplacement_point + 1, (Lfichier - emplacement_point) - 1)