Bonjour à tous et meilleurs vœux pour cette nouvelle année 2013.
j'utilise actuellement le code ci-dessous pour lister les dossiers et sous dossiers sur mon serveur nas , mais je voudrais y rajouter le comptage de tous les fichiers dans chaque dossier et sous dossiers que la macro liste
afin de pouvoir comparer mes fichiers sauvegarder sur le nas et celles de mon PC
Merci d'avance pour votre aide
[/QUOTE]
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61 _____ Option Explicit Dim i As Integer Dim Cible As Byte Sub listeDossiersEtSousDossiers() Dim Racine As String Application.ScreenUpdating = False Racine = "\\BARTO\photos\" Cible = NbSeparateur(Racine) ListeDossiers Racine Application.ScreenUpdating = True i = 0 End Sub Sub ListeDossiers(NomRep As String) 'Adapté de Ole P Erlandsen Dim Fso As Object, SourceFolder As Object Dim SubFolder As Object On Error GoTo Fin Set Fso = CreateObject("Scripting.FileSystemObject") Set SourceFolder = Fso.GetFolder(NomRep) For Each SubFolder In SourceFolder.SubFolders i = i + 1 'pour récupérer le chemin complet 'Cells(i, nbSeparateur(SubFolder.Path) - Cible) = SubFolder.Path ' 'pour récupérer uniquement le nom du dossier Cells(i, NbSeparateur(SubFolder.Path) + 1 - Cible) = SubFolder.Name ListeDossiers SubFolder.Path Next SubFolder Fin: End Sub Function NbSeparateur(Chemin As String) As Byte Dim m As Integer Dim Nb As Byte For m = 1 To Len(Chemin) If Mid(Chemin, m, 1) = "\" Then Nb = Nb + 1 m = m + 1 End If Next NbSeparateur = Nb End Function ___
Partager