web-dev-qa-db-fra.com

compter les fichiers dans un dossier spécifique et afficher le nombre en 1 cel

J'essaie de savoir combien de fichiers il y a dans 1 dossier spécifique avec l'extension .xls. J'ai lu des centaines d'exemples avec des boîtes de message, mais ce n'est pas ce que je recherche. Je veux juste avoir le nombre affiché en 1 cel.

Y a-t-il quelqu'un qui aime m'aider avec ça s'il vous plaît? Je ne peux poster aucune tentative car je ne peux pas commencer :-(

cordialement, E.

filevbaxls
7
user2151190

Essayez le code ci-dessous:

Attribuez le chemin du dossier à la variable FolderPath avant d'exécuter le code ci-dessous.

Sub sample()

    Dim FolderPath As String, path As String, count As Integer
    FolderPath = "C:\Documents and Settings\Santosh\Desktop"

    path = FolderPath & "\*.xls"

    Filename = Dir(path)

    Do While Filename <> ""
       count = count + 1
        Filename = Dir()
    Loop

    Range("Q8").Value = count
    'MsgBox count & " : files found in folder"
End Sub
20
Santosh