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.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)
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 903 541 membres 117 nouveaux aujourd'hui 16 195 membres club