Discussion :

[informer]

Bonjour à tous

J'ai utilisé le code de Kiki29 C'est par ici pour lister les fichiers de tous les sous-répertoires à partir d'une racine sélectionnée dans un filedialog.

Pas de problème, merci à Kiki29. Par contre je voudrai identifier les répertoires vides et là je ne sais pas comment procéder? Existe-t-il un attribut de l'objet répertoire à tester et lequel?

Merci par avance pour votre aide
Bonjour chez vous

[unparia]

Bonjour
Le dossier d:\aaaaaaaa est vide si

Code :

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

toto = dir("d\aaaaaaaa\")

retourne ""
Te reste à insérer cela comme condition dans le code que tu utilises

[informer]

Bonsoir unparia,

Merci pour ta réponse et si je te suis dans le code suivant:

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
Private Sub SearchForFiles(sRoot As String)
Dim WFD As WIN32_FIND_DATA
Dim hFile As LongPtr
    hFile = FindFirstFile(sRoot & ALL_FILES, WFD)
    If hFile <> INVALID_HANDLE_VALUE Then
        Do
            '   if a folder, and recurse specified, call method again
            If (WFD.dwFileAttributes And vbDirectory) Then
                If Asc(WFD.cFileName) <> vbDot Then
                    NbDossiers = NbDossiers + 1
                    If fp.bRecurse Then SearchForFiles sRoot & TrimNull(WFD.cFileName) & vbBackslash
                End If
            Else
                '   must be a file ..
                If MatchSpec(WFD.cFileName, fp.sFileNameExt) Then
                    fp.nCount = fp.nCount + 1
                    shDatas.Cells(fp.nCount + RDepart, 2) = sRoot & TrimNull(WFD.cFileName)
                    ' shDatas.Cells(fp.nCount + RDepart, 3) = Format(CDate(WFD.ftLastWriteTime), "dd/mm/yyyy") ==> en erreur, pourquoi moi commandant cousteau ??????
                End If
            End If
            fp.nSearched = fp.nSearched + 1
        Loop While FindNextFile(hFile, WFD)
        Application.StatusBar = NbDossiers & " / " & fp.nCount
    End If
    FindClose hFile
End Sub

après

Code :

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

1
2
  If Asc(WFD.cFileName) <> vbDot Then
                    NbDossiers = NbDossiers + 1

tu ajouterais

Code :

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

if  dir( sRoot & TrimNull(WFD.cFileName) ) then ....

Ne pourrait-on pas tester un attribut de WFD pour éviter la commande dir qui est consommatrice de ressources?

bonjour chez toi

[patricktoulon]

pour éviter la commande dir qui est consommatrice de ressources?

c'est la moins gourmande en tout cas certainement moins que les api les deux méthodes étant les plus rapide beaucoup de gens croit que les apis sont moins lourdes (certaines)
mais en ce qui concernes les user 32,shell etc....on ne les vois pas dans la consommation Excel mais on peut le voir dans gestions de tache onglet services

garde le dir surtout pour simplement tester la présence de fichiers dans un dossier

[kiki29]

Salut, @informer : voir via liste des fichiers avec visualisation de l'arborescence ?

[informer]

Salut PatrickToulon, merci pour ces infos qui répondent partiellement à ma question

Pour une recherche récursive, qui de DIR, API ou FileSystemObject est le plus performant considérant toujours qu'ils soient bien maîtrisés, je précise pour ne pas me faire allumer par unparia

Bonjour chez toi de toulon

Salut, @informer : voir via liste des fichiers avec visualisation de l'arborescence ?

Salut Kiki29,

Dans ton outil, tu n'utilises pas les API pour récupérer la taille des répertoires et des fichiers mais l'obet Set FSO = CreateObject("Scripting.FileSystemObject"). Une raison autre que celle sûrement d'avoir commencé à développé avec cet objet?

BOnjour c'est toi

[unparia]

Bonjour

c'est la moins gourmande en tout cas certainement moins que les api les deux méthodes étant les plus rapide beaucoup de gens croit que les apis sont moins lourdes (certaines)
mais en ce qui concernes les user 32,shell etc....on ne les vois pas dans la consommation Excel mais on peut le voir dans gestions de tache onglet services

garde le dir surtout pour simplement tester la présence de fichiers dans un dossier

- Je rappelle que la fonction Dir de VB (tant VB6 que VBA) utilise elle-même la librairie Kernel32 de l'API de Windows (et aucune autre librairie).

- Que la librairie Kernel32 est le noyau-même de Windows et est donc utilisée en permanence, quelle que soit l'application en cours.

Utiliser la fonction Dir de VBA est sage. Utiliser directement ce dont se sert cette fonction est beaucoup plus rapide.
Il va maintenant de soi que tout est dans la manière d'utiliser les deux méthodes (tant l'une que l'autre).
Il serait abusif d'utiliser adroitement la fonction Dir et maladroitement les 4 fonctions nécessaires de la librairie Kernel32 pour déclarer ensuite que Dir est plus performante et moins gourmande.

[informer]

Bonjour à tous et merci pour votre aide et vos compléments d'info.

Sur DIR, je suis très dubitatif car il ne me renvoie jamais de valeur même quand le répertoire est composé de sous-répertoires / fichiers
J'ai donc dû utiliser

Folder_Obj1.path
Folder_Obj1.Files.Count
Folder_Obj1.SubFolders.Count

dans la fonction ci-dessous

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
Private Sub Find_Folder_List_From_Path(sRacine As String)
 
 
    'Çreate File System Objects to Use this FSO, Go to Tools -> References.
    'Find for “Microsoft Scripting Runtime” & Click the Checkbox.
    Dim FileSysObj_1 As FileSystemObject
    Dim Folder_Obj1 As Folder
 
    'Initialize Variables And Objects
    Set FileSysObj_1 = New FileSystemObject
 
    'Loop to get each Subfolder in the Root Path
    For Each Folder_Obj1 In FileSysObj_1.GetFolder(sRacine).SubFolders
        On Error Resume Next
        with forms"toto") 
               .cells(1,2) = Folder_Obj1.path
               .cells(1,3) = Folder_Obj1.Files.Count
                .cells(1,4) = Folder_Obj1.SubFolders.Count
        End With    
End Sub

Question subsidiaire:
Qui de FileSystemObject ou des API est le plus performant en terme de temps considérant que les API soient bien utilisées (Cf. commentaire de unparia)

Merci encore pour votre aide
Bonjour chez vous

[patricktoulon]

re
Bonjour unparia
oui c'est vrai tout dépends de leur utilisation
j'ai tester notre dir recursif et celle avec les apis qui est plus rapide
j'ai mi le panneau graphique dans gestion de tache et regarder le résultat
pour le même travail le module avec les apis montent des pique a 800/900kilos et descend a 18/25kilo
mais dir lui commence plus fort 70/110kilo en moyenne basse mais 400/500 kilo en moyen haute