vb6+ recuperer le nom de fichier

Salut,
J'ai un dossier qui contient par exemple 6 fichiers :file1.html ,file2.html, file3.html, file4.html,file5.html,file6.html
Comment je peux récuperer le nom du derenier fichier "file6.html" pour je puisse par la suite d'incrementer le conteur i.
Merci.

Code:

---

1 2 3 4 5 6 7 8

Dim msg$ Dim Num As Integer msg$ = Replace("file67.html", ".html", "") 'supprimr la fin pour n'avoir que le nom du fichier msg$ = StrReverse(msg$) 'renversement pour avoir les chiffres en premier msg$ = Val(msg$) 'recupere les chiffres inversés msg$ = StrReverse(msg$) 'renversement pour avoir les chiffres non inversés Num = CInt(msg$) 'recuperation du chiffres msg$ = "file" & CStr(Num + 1) & ".html" 'reconstitution incrémenté de +1

---

Il peut etre fait plus court, mais l'exemple te permettra de le faire à ta convenance

Une Variante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub Form_Load() Dim NameFichier As String 'initialise le nom du fichier a incrémenter (pour l'exemple) NameFichier = "LeFichier543Rechercher.txt" 'appel de la fonction qui va incrémenter de +1 NameFichier = NewNameFichier(NameFichier)   End Sub   Public Function NewNameFichier(OldNameFichier As String) Dim T As Integer Dim Num, LetrDeb, LetrFin As String   For T = 1 To Len(OldNameFichier) Select Case Asc(Mid$(OldNameFichier, T, 1)) Case 48 To 57 ' code ascii pour les chiffres 0 à 9 Num = Num & Mid$(OldNameFichier, T, 1) Case Else If Num = "" Then LetrDeb = LetrDeb & Mid$(OldNameFichier, T, 1) Else LetrFin = LetrFin & Mid$(OldNameFichier, T, 1) End If End Select Next T Num = CStr((Val(Num) + 1)) NewNameFichier = LetrDeb & Num & LetrFin End Function

---

;) ou alors :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim LastAdr As String Dim LastNum As Integer Dim Adresse As String Dim Repert As String   Repert = "C:\MonDossier\*.html"   Adresse = Dir(Repert)   While (Adresse<>"") LastAdr = Adresse Adresse = Dir Wend   LastNum = Replace(Replace(UCase(LastAdr),".HTML",""),"FILE","")

---

Le dernier fichier répèrtorié est logé dans LastAdr à la fin du code ;)
La dernière ligne enlève le "file" ainsi que l'extension du fichier pour isoler le numéro en passant par un UCase afin d'eviter les problèmes de majuscules/minuscules. Le numéro du fichier est donc logé dans LastNum.

Petit conseil si c'est toi qui créer les fichiers html : si tu sait que tu va aller jusqu'a par exemple 999 fichiers, numérotes les file000.html, file001.html ... file999.html, tu n'auras pas ainsi de soucis de classement des fichier.

Salut ProgElecT,
c'est très gentille de ta part, votre code marche très bien.
Merci une autre fois.