Comment : déterminer le nombre de fichiers contenus dans un répertoire dans Visual Basic

Vous pouvez utiliser la méthode GetFiles pour retourner une collection en lecture seule de chaînes représentant les noms des fichiers présents dans le répertoire spécifié. Ensuite, vous pouvez utiliser la propriété Count pour déterminer le nombre de fichiers.

Pour déterminer le nombre de fichiers dans un répertoire

  1. Utilisez la méthode GetFiles pour retourner la collection de fichiers dans le répertoire spécifié. Cet exemple retourne les fichiers dans le répertoire nommé TestDir.

    Dim counter = My.Computer.FileSystem.GetFiles("C:\TestDir")
    
  2. Utilisez la propriété Count pour déterminer le nombre de fichiers dans la collection. Cet exemple affiche le résultat dans une boîte de message.

    MsgBox("number of files is " & CStr(counter.Count))
    

Exemple

Cet exemple, qui présente l'extrait de code ci-dessus dans un formulaire complet, compte le nombre de fichiers dans TestDir et le signale dans une boîte de message.

Dim counter = My.Computer.FileSystem.GetFiles("C:\TestDir")
MsgBox("number of files is " & CStr(counter.Count))

Compilation du code

Cet exemple nécessite les actions ou les éléments suivants :

  • l'accès aux membres de l'espace de noms System.Collections. Ajoutez une instruction Imports si vous n'utilisez pas des noms de membres qualifiés complets dans votre code. Pour plus d'informations, consultez Imports, instruction (espace de noms et type .NET) ;

  • un répertoire nommé TestDir à l'emplacement spécifié. Remplacez le chemin d'accès par le chemin d'accès du répertoire que vous souhaitez examiner.

Programmation fiable

Les conditions ci-dessous peuvent générer une exception.

  • Le chemin d'accès est valide pour une des raisons suivantes : il s'agit d'une chaîne de longueur nulle, ne contient que des espaces blancs ; il contient des caractères non valides ou il s'agit d'un chemin d'accès de périphérique (commençant par \ \. \) (ArgumentException).

  • Le chemin d'accès n'est pas valide, car il a la valeur Nothing (ArgumentNullException).

  • Le répertoire n'existe pas ou est un fichier (DirectoryNotFoundException).

  • directory pointe sur un fichier existant (IOException).

  • Le chemin d'accès dépasse la longueur maximale définie par le système (PathTooLongException).

  • Un nom de fichier ou de dossier du chemin d'accès contient un signe deux-points (:) ou n'a pas un format correct (NotSupportedException).

  • L'utilisateur n'a pas les autorisations nécessaires pour afficher le chemin d'accès (SecurityException).

  • L'utilisateur n'a pas les autorisations nécessaires (UnauthorizedAccessException).

Voir aussi

Tâches

Comment : placer la collection de fichiers dans un répertoire dans Visual Basic

Comment : rechercher des fichiers avec un modèle spécifique dans Visual Basic

Référence

GetFiles

Autres ressources

Propriétés des fichiers, répertoires et lecteurs dans Visual Basic