Télécharger le zip
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.Stringdim emplacement_point as integerdim Lfichier as integeremplacement_point = InStr(1, NameFile, ".") 'donne la postion du pointLfichier = 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)
BELTEGUSE,Dim Extension As String =System.IO.Path.GetExtension("filePath")
On deterre des vielle sources!Certes c'est beaucoup mieux comme cela mais à l'époque je n'utilisait pas des biblio comme System ... etc.
sur vbfrance.com quand je fais une recherche je trouve toujours un tas de trucs en plus que je cherchais même pas
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 985 membres 19 nouveaux aujourd'hui 16 151 membres club