Discussion :

[spootnic22]

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.

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Une Variante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[avigeilpro]

ou alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[spootnic22]

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