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

  • Article

Mise à jour : novembre 2007

Vous pouvez utiliser la méthode My.Computer.FileSystem.GetFiles pour retourner une collection en lecture seule de chaînes représentant les noms des fichiers 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 As _
System.Collections.ObjectModel.ReadOnlyCollection(Of String)
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 As _
System.Collections.ObjectModel.ReadOnlyCollection(Of String)
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 :

  • accéder aux membres de l'espace de noms System.Collections ; ajouter une instruction Imports si vous n'avez pas de 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 n'est pas valide pour une des raisons suivantes : il s'agit d'une chaîne de longueur nulle ; il 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 (qui commence 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

My.Computer.FileSystem.GetFiles, méthode

Autres ressources

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