Nombre de fichiers d'un répertoire (VBA)

Bonjour Pascal,

et si tu utilises plutôt ceci :

'-----------------------
With Application.FileSearch
.NewSearch
.LookIn = "c:sophie" 'à déterminer
.Filename = "*.*"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
If .Execute > 0 Then
MsgBox .FoundFiles.Count
End If
End With
'------------------------------


Salutations"


<pascalv@sdf.lonestar.org> a écrit dans le message de news: 1137438876.506779.303100@g47g2000cwa.googlegroups.com...

Quelqu'un sait-il pourquoi ces deux programmes renvoient dans certains
cas des résultats différents pour calculer le nombre de fichiers d'un
répertoire?

Dans les 2 cas l'objectif était de compter tous les fichiers.

Merci d'avance


----- Méthode 1: Utilisation de Application.FileSearch

Public Sub test1()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

With Application.FileSearch
.NewSearch
.RefreshScopes
.FileTypes.Add msoFileTypeAllFiles
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True

.LookIn = "C:users"

ActiveCell.Formula = .Execute(SortBy:=msoSortByLastModified, _
SortOrder:=msoSortOrderAscending, _
AlwaysAccurate:=True)
End With

End Sub

----- Fin de la méthode 1


----- Méthode 2: Comptage par une fonction récursive

Public Sub test2()

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
ActiveCell.Formula = nbFichiers("C:users", fs)

End Sub


Private Function nbFichiers(dossier As String, ByRef fs As Object)
Rem nb de fichiers dans un répertoire

Dim f As Object

nbFichiers = fs.GetFolder(dossier).Files.Count

If Not (fs Is Nothing) Then
If fs.GetFolder(dossier).SubFolders.Count > 0 Then
For Each f In fs.GetFolder(dossier).SubFolders
nbFichiers = nbFichiers _
+ nbFichiers(f.Path, fs) ' fonction récursive
Next
End If
End If
End Function


----- Fin de la méthode 2

et si tu utilises plutôt ceci :
With Application.FileSearch
MsgBox .FoundFiles.Count

Merci pour la réponse; mais Application.FileSearch.FoundFiles.Count
retourne le même résultat que la 1ère méthode (résultat de
.Execute), càd qu'il manque des fichiers par rapport à un balayage
systématique de tous les répertoires

Bonjour Pascal,

As-tu pu identifier le type de fichier dont la procédure ne tient pas compte?
Ce serait intéressant de savoir ....

À titre d'exemple sous Excel 2003 et Windows Xp Pro.
Impossible pour FileSearch de compter le nombre de fichiers .zip
ou de lui faire rechercher un fichier ayant une extension .zip
.Par contre, il identifie très bien les extensions .rar .
2 types de fichiers compressés, 2 réponses différentes.

Je n'ai aucune explication pour ceci. Est-ce que ceci est aussi
applicable à d'autres types (extensions) de fichiers ?

Avec ce type de procédure, je ne vois aucune explication justifiant
cette observation :

With Application.FileSearch
.NewSearch
.LookIn = "c:sophie" 'à déterminer
.Filename = "*.*"
.SearchSubFolders = False
If .Execute > 0 Then
MsgBox .FoundFiles.Count
End If
End With

Peut-être que d'autres auront un complément d'informations.


Salutations!



<pascalv@sdf.lonestar.org> a écrit dans le message de news: 1137484745.146889.98290@g43g2000cwa.googlegroups.com...

et si tu utilises plutôt ceci :
With Application.FileSearch
MsgBox .FoundFiles.Count

Merci pour la réponse; mais Application.FileSearch.FoundFiles.Count
retourne le même résultat que la 1ère méthode (résultat de
.Execute), càd qu'il manque des fichiers par rapport à un balayage
systématique de tous les répertoires

As-tu pu identifier le type de fichier dont la procédure ne tient pas c ompte?
Ce serait intéressant de savoir ....

J'ai aussi déjà eu le cas avec *certains* fichiers .msg (Microsoft
Outlook)