Vous voulez savoir combien de fichiers se trouvent dans un dossier de vos unités de masse ? Vous êtes au bon endroit.

Pour parcourir un dossier, nous affecteront la fonction Dir() à une variable String, en précisant le chemin du dossier à examiner en paramètre de la fonction. Dir() retourne le nom du premier fichier du dossier parcouru. Tant que la valeur retournée n’est pas vide, cela signifie que tous les fichiers n’ont pas été passés en revue. Dans ce cas, vous incrémenterez une variable compteur et vous passerez au fichier suivant en affectant la fonction Dir sans paramètre à la variable String. Lorsque la variable String sera vide, tous les fichiers auront été parcourus et la variable compteur contiendra le nombre de fichiers du dossier.

Voici le code utilisé :

Dim Fichier As String, NbFic As Integer

NbFic = 0

Fichier = Dir("c:\data\encours\")

Do While Fichier <> ""

  NbFic = NbFic + 1

  Fichier = Dir

Loop

MsgBox NbFic

Et voici un exemple d’exécution :