I denne vejledning lærer du, hvordan du får navne på alle filer i en mappe og sætter dem i et regneark.
Hvis du i stedet vil lære at kontrollere, om der findes en fil, kan du klikke på dette link: VBA -fil findes
Brug af FileSystemObject til at hente listen over filer i en mappe
VBA giver dig mulighed for at liste alle filer fra en mappe ved hjælp af FileSystemObject.
Vi viser, hvordan du får en liste over filer i mappen C: \ VBA -mappe og læg den i den første kolonne i regnearket. Denne mappe består af 5 filer, som vist på billede 1:
Billede 1. Filer i mappe C: \ VBA -mappe
Her er koden:
| 1234567891011121314151617181920 | Sub LoopThroughFiles ()Dim oFSO som objektDim oFolder som objektDim oFile som objektDim i As IntegerIndstil oFSO = CreateObject ("Scripting.FileSystemObject")Indstil oFolder = oFSO.GetFolder ("C: \ VBA -mappe")For hver oFile I oFolder.FilesCeller (i + 1, 1) = oFile.Namei = i + 1Næste oFileAfslut Sub |
I eksemplet skal du først oprette et objekt i klassen Scripting.FileSystemObject:
| 1 | Indstil oFSO = CreateObject ("Scripting.FileSystemObject") |
Indstil derefter mappen ved hjælp af metoden GetFolder:
| 1 | Indstil oFolder = oFSO.GetFolder ("C: \ VBA -mappe") |
Næste loop gennem hver fil i oMappe, ved brug af oFile.Name til få navnet på hver fil i mappen og skriv det i den næste tomme række:
| 123456 | For hver oFile I oFolder.FilesCeller (i + 1, 1) = oFile.Namei = i + 1Næste oFile |
Billede 2. Regneark med listen over filer i mappen
Som du kan se i billede 2, er alle 5 filer fra C: \ VBA -mappen angivet i den første kolonne.
