RENAMEFILE

Commentaire de beltegeuse le 10/08/2006 19:21:56

Bon code en tout cas pour moi il marche normalement (oui je l'ai un peu transformer)
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)

Commentaire de beltegeuse le 22/06/2008 20:51:58

On deterre des vielle sources!
Certes c'est beaucoup mieux comme cela mais à l'époque je n'utilisait pas des biblio comme System ... etc.