Compter les fichiers sous dossier "tata"

[carlos]

Bonsoir le forum

Est il possible de savoir combien de fichier il y a dans le dossier (sans sous dossier):
C;\\tata ?
Merci
Carlos

 

[myDearFriend!]

Bonsoir carlos, le Forum,

Tu peux essayer :

Sub Test()
      MsgBox NbFichiers('C:\tata')
End Sub

Function NbFichiers(Chemin As String) As Long
      NbFichiers = CreateObject('Scripting.FileSystemObject'). _
                        GetFolder(Chemin).Files.Count
End Function

Cordialement,

 

[Carlos]

Bonsoir myDearFriend!

GGGGGGGGGGGGGGGGGénial ...

Merci

Carlos