Bonjour,
Je fais un .FileSearch mais lorsque j'ajoute ou supprime des fichiers de mon dossier, le .FoundFiles.Count me met toujours la quantité de fichier initiale. Ce qui fait que pour la suite de mon traitement, ça bloque
Voici mon code :
Merci par avance pour votre aide.
Cdt,
Je fais un .FileSearch mais lorsque j'ajoute ou supprime des fichiers de mon dossier, le .FoundFiles.Count me met toujours la quantité de fichier initiale. Ce qui fait que pour la suite de mon traitement, ça bloque
Voici mon code :
Code:
With Application.FileSearch
.LookIn = MyDir
.LookIn = "C:\Test\"
.Filename = "*.xls"
MsgBox .FoundFiles.Count
ReDim MyTable(.FoundFiles.Count)
For i = 1 To .FoundFiles.Count
If Mid(Right(.FoundFiles(i), 31), 12, 4) = 2008 Then
MyTable(j) = .FoundFiles(i)
j = j + 1
End If
Next i
End With
Merci par avance pour votre aide.
Cdt,