Bonjour, je souhaite compter des fichiers dans un dossier, mais je n'y arrive pas...
Voici mon code:
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
 
 
Dim fs, f, f1, fc, s, fo, f2
Dim name As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderPath)
    Set fo = f.subFolders
 
 
    For Each f2 In fo
        'On ne traite que les folders "TEST..."
        name = f2.name
        MsgBox (name)
        If InStr(name, "TEST") <> 0 Then
        ' affichage nom
            ActiveSheet.Cells(lnbr, 1).Value = f2.name
 
 
        'test dossier TOTO
            If fs.folderexists(f2.Path & "/TOTO") Then
            ' recherche du nombre de fichier dans le dossier TOTO
            ' quelle est la fonction à utiliser???
 
            End If
Voila, quand je suis dans mon dossier TOTO, je voudrais savoir combien de fichiers sont présents...
Merci