Bonjour,
une autre approche via une fonction renvoyant un tableau (liste de fichiers) :
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
| Function DirList(SpecFic, Optional Dossier = "", Optional Attrib As VbFileAttribute = vbNormal)
If Dossier > "" And Right(Dossier, 1) <> "\" And _
Left(SpecFic, 1) <> "\" Then Dossier = Dossier & "\"
F = Dir(Dossier & SpecFic, Attrib)
U = -(F > "")
ReDim T(U To U) As String
Do Until F = ""
ReDim Preserve T(1 To U)
T(U) = Dossier & F
F = Dir
U = U + 1
Loop
DirList = T
End Function
Private Sub Demo()
L = DirList("*.txt", "D:\Tests")
For N = 1 To UBound(L)
Debug.Print Format(N, "@@@ "); L(N)
Next
End Sub |
Dans la procédure Demo, UBound(L) en ligne n°23 renvoie le nombre de fichiers contenus dans la liste (tableau) L …
Partager