[VBA-E]Y-a-t-il des fichiers dans les sous-rep de mon rep ?

Version imprimable

27/04/2007, 18h42
Kaiba

[VBA-E]Y-a-t-il des fichiers dans les sous-rep de mon rep ?

Bonjour ,

Bon je pense que tout est dans le titre :) .

J'ai un repertoire ( fixe et connu ) dans lequel il y a des repertoires de noms variables ( sous repertoires donc... ) dans lesquels ( les sous-repertoires ) il y a des fichiers .
Je souhaite , grace à un bouton , scanner les sous repertoires et savoir si oui ou non il y a des fichiers dedans . Si oui , afficher dans quels repertoires . Si non , bah ... je trouverais bien quelque chose :) .

J'ai vraiment aucune idée de comment faire la ..

Cordialement.

un peu de code à étudier:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
' Pour compter les fichiers présents
'dans des sous-répertoire
'
' Activer la référence Microsoft Scripting Runtime
'
Sub CompterFichiersDansSousRep()
 Dim oFSO As New FileSystemObject
 Dim oRep As Folder
 Dim oSousRep As Folder
 Dim stRep As String
 stRep = "C:\tmp"
 On Error Resume Next
 Set oRep = oFSO.GetFolder(stRep)
 On Error GoTo 0
 If oRep Is Nothing Then
   MsgBox stRep & " Inexistant"
 Else
   For Each oSousRep In oRep.SubFolders
     MsgBox "Sous : " & oSousRep.Name & " il y as : " & oSousRep.Files.Count & " fichiers"
 
   Next
 End If
 End Sub

Tu peux aussi essayer ça, inspiré de l'aide en ligne ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub AfficheListeDossier() '(Chemin) 'chemin peut être passé en paramètres
    Dim fso, Rep, LesReps, LesFichs, f, sf, f2, fc
    Set fso = CreateObject("Scripting.FileSystemObject")
    Chemin = "D:\Doc"
    Set f = fso.GetFolder(Chemin)
    Set sf = f.SubFolders
    For Each Rep In sf
        LesReps = LesReps & Rep.Name
        LesReps = LesReps & vbCrLf
        Set fc = Rep.Files
        For Each f2 In fc
            LesFichs = LesFichs & f2.Name
            LesFichs = LesFichs & vbCrLf
        Next
        If LesFichs <> "" Then
              MsgBox LesFichs, 0, "Fichiers du répertoire " & Rep.Name
          Else
              MsgBox "Il n'y a pas de fichier dans ce répertoire !", 0, "Répertoire " & Rep.Name
        End If
        LesFichs = ""
    Next
    MsgBox LesReps, 0, "Répertoires du dossier " & Chemin
End Sub

A+