Discussion :

[Jeanvaljean44]

le forum

Quelqu'un aurait il des infos concernant le code permettant de compter le nombre de fichiers *.xlsx situés sous un répertoire..et utilsant FSO + count

Merci d'avance

@jeanvaljean44

[zebulon2212]

Vb6 et vba étant tres proche, je te renvoie au FAQ de vb6 : http://vb.developpez.com/faq/?page=Fichiers#rep_sousrep

[Invité]

Bonjour

Cette article devrait te donner des infos : http://warin.developpez.com/access/fichiers/

Surtout les exemples à la fin, et dans l'aide regarde du coté de Files.

Starec

[Jeanvaljean44]

Désolé, je suis allé sur les liens proposés, mais n'étant pas expert dans le domaine, je n'ai pas trouvé la solution.

En revanche j'ai traité le problème de la manière suivante :

Code :

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

1
2
3
4
5
Fichier = Dir("R:\Production\OrdreFabrication\" & Repertoire & "\" & SousRepertoire & "\*.xlsx")
    Do Until Fichier = ""                                                   'Comptage nombre de fichiers existants
        NbFichier = NbFichier + 1
        Fichier = Dir
    Loop

Si quelqu'un à mieux, je suis preneur

Bonne journée à tous...

Jean

[Pierre Fauconnier]

Dans le tuto que Starec t'a renseigné, tu as le point III-B-1 qui te propose ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim oFS As Office.FileSearch
Set oFS = Application.FileSearch
With oFS
    .NewSearch
    .FileType = msoFileTypeAllFiles
    .FileName = "monfichier.txt"
    .LookIn = "D:\Essai"
    .Execute
    MsgBox .FoundFiles.Count
End With

après avoir coché la référence à Microsoft Office

Cela ne t'aide pas?

[Invité]

Bonjour

Peut-être ceci comme piste.

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub Test()
    Dim fso As Scripting.FileSystemObject
    Dim fld As Scripting.Folder
 
    Set fso = New Scripting.FileSystemObject
    Set fld = fso.GetFolder("TonChemin")
    MsgBox fld.Files.Count
 
End Sub

[Invité]

Re

En mieux

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
Public Sub Test()
    Dim fso As Scripting.FileSystemObject
    Dim fld As Scripting.Folder
    Dim fil As Scripting.File
    Dim i As Long
 
    Set fso = New Scripting.FileSystemObject
    Set fld = fso.GetFolder("TonRépertoire")
    For Each fil In fld.Files
        If InStr(1, fil.Name, ".xlsx") Then
            i = i + 1
        End If
    Next fil
 
    MsgBox i
 
 
End Sub