Dans ce didacticiel, vous apprendrez à obtenir les noms de tous les fichiers d'un dossier et à les placer dans une feuille de calcul.
Au lieu de cela, si vous voulez savoir comment vérifier si un fichier existe, vous pouvez cliquer sur ce lien : VBA File Exists
Utilisation de FileSystemObject pour obtenir la liste des fichiers d'un dossier
VBA vous permet de lister tous les fichiers d'un dossier, en utilisant le FileSystemObject.
Nous allons montrer comment obtenir une liste de fichiers dans le dossier C:\dossier VBA et placez-le dans la première colonne de la feuille de travail. Ce dossier se compose de 5 fichiers, comme le montre l'image 1 :
Image 1. Fichiers dans le dossier C:\VBA Folder
Voici le code :
| 1234567891011121314151617181920 | Sous-LoopThroughFiles ()Dim OFSO en tant qu'objetDim oFolder en tant qu'objetDim oFile As ObjectDiminuer en tant qu'entierDéfinir oFSO = CreateObject("Scripting.FileSystemObject")Définir oFolder = oFSO.GetFolder("C:\VBA Folder")Pour chaque oFile dans oFolder.FilesCells(i + 1, 1) = oFichier.Nomje = je + 1Fichier suivantFin du sous-marin |
Dans l'exemple, créez d'abord un objet de la classe Script.FileSystemObject :
| 1 | Définir oFSO = CreateObject("Scripting.FileSystemObject") |
Ensuite, définissez le dossier en utilisant la méthode ObtenirDossier:
| 1 | Définir oFolder = oFSO.GetFolder("C:\VBA Folder") |
Boucle suivante à travers chaque fichier dans oDossier, à l'aide de oFichier.Nom à récupérez le nom de chaque fichier du dossier et écrivez-le dans la ligne vide suivante :
| 123456 | Pour chaque oFile dans oFolder.FilesCells(i + 1, 1) = oFichier.Nomje = je + 1Fichier suivant |
Image 2. Feuille de travail avec la liste des fichiers dans le dossier
Comme vous pouvez le voir dans l'image 2, les 5 fichiers du dossier C:\VBA sont répertoriés dans la première colonne.
