Je voudrais parcourir les fichiers d'un répertoire en utilisant vba dans Excel 2010.
Dans la boucle, j'aurai besoin de:
- le nom du fichier, et
- la date à laquelle le fichier a été formaté.
J'ai codé ce qui suit qui fonctionne bien si le dossier ne contient pas plus de 50 fichiers, sinon c'est ridiculement lent (j'en ai besoin pour travailler avec des dossiers avec> 10000 fichiers). Le seul problème de ce code est que l'opération de recherche file.name
prend beaucoup de temps.
Code qui fonctionne mais qui est waaaaaay trop lent (15 secondes pour 100 fichiers):
Sub LoopThroughFiles()
Dim MyObj As Object, MySource As Object, file As Variant
Set MySource = MyObj.GetFolder("c:\testfolder\")
For Each file In MySource.Files
If InStr(file.name, "test") > 0 Then
MsgBox "found"
Exit Sub
End If
Next file
End Sub
Problème résolu:
- Mon problème a été résolu par la solution ci-dessous en utilisant
Dir
d'une manière particulière (20 secondes pour 15000 fichiers) et pour vérifier l'horodatage à l'aide de la commandeFileDateTime
. - La prise en compte d'une autre réponse en dessous des 20 secondes est réduite à moins d'une seconde.
code
Set MyObj = New FileSystemObject
Object
.