Discussion :

[Jacen]

Je voudrais pouvoir lister les sous dossier puis les fichiers qui sont dedans. Pour cela, j'ai trouvé 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
Private Sub listage()
Set fs = New FileSystemObject
Set dossier = fs.GetFolder("U:\spc\")
scan dossier
End Sub
Public Sub scan(dossier As Folder)
For Each fichier In dossier.Files
 MsgBox fichier
Next
For Each ssdossier In dossier.SubFolders
 MsgBox ssdossier
 scan ssdossier
Next
End Sub

Mais je ne trouve pas le moyen de réaliser une action particuliere quand j'ai trouver le fichier puis de passer au sous dossier suivant
J'ai pensé à utiliser un tableau dans lequel j'enregistre les chemins des fichiers mais c'est un peu lourd.
Il y a peut etre mieux

[Catbull]

La fonction que tu as écrit réalise déjà une action sur tes fichiers : elle affiche le nom. Remplace les msgbox par ce que tu veux

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 listage()
    Set fs = New FileSystemObject
    Set dossier = fs.GetFolder("U:\spc\")
    scan dossier
End Sub
 
Public Sub scan(dossier As Folder)
    For Each fichier In dossier.Files
         ActionSurFichier fichier
    Next
 
    For Each ssdossier In dossier.SubFolders
       ActionSurDossier ssdossier
       scan ssdossier
    Next
End Sub
 
 Public Sub ActionSurFichier(F as File)
    'Traitement du fichier courant
End Sub
 
 
  Public Sub ActionSurDossier(F as Folder)
    'Traitement du répertoire courant F
 End Sub

[Jacen]

Effectivement j'y ai pensé après mais j'ai pas eu le temps de retourner sur le forum pour le signaler .
Merci pour la réponse, rapide comme d'habitude