Discussion :

[kluh]

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

[pgz]

Bonjour.

Tu peux essayer

Code :

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

If fs.folderexists(f2.Path & "\TOTO") Then msgbox f2.subfolders("TOTO").Files.count

Bon courage,

[Mat.M]

Voila, quand je suis dans mon dossier TOTO, je voudrais savoir combien de fichiers sont présents...
Merci
Voila, quand je suis dans mon dossier TOTO, je voudrais savoir combien de fichiers sont présents...

Il faut faire une recherche avec fonction recursive et boucler dans les sous repertoire

Perso je preferrais passer par des API Windows comme FindFirstFile ( voir MSDN )