Inhoudsopgave
Deze korte zelfstudie laat zien hoe u de GetFileName-methode van het FileSystemObject gebruikt.
Bestandsnaam ophalen met VBA FileSystemObject
Deze les gebruikt het FileSystemObject. Om het te gebruiken, moet u een verwijzing naar de VB-script runtime-bibliotheek instellen. Kijk hier voor meer informatie.
Om de bestandsnaam van elk pad te krijgen, kunt u het volgende gebruiken:
| 123456789101112 | Sub-FSOGetFileName()Dim bestandsnaam als stringDim FSO als nieuw bestandssysteemobjectStel FSO = CreateObject ("Scripting.FileSystemObject") in'Bestandsnaam ophalen'Bestandsnaam = FSO.GetFileName("C:\ExamplePath\ExampleFile.txt")'Bestandsnaam ophalen zonder extensie'BestandsnaamWOExt = Left(Bestandsnaam, InStr(Bestandsnaam, ".") - 1)Einde sub |
De variabele Bestandsnaam heeft dan de waarde "ExampleFile.txt", de variabele FileNameWOExt heeft de extensie "ExampleFile".
Bestandsnaam ophalen zonder extensie
Zoals hierboven vermeld, gebruikt u deze regel code om de bestandsnaam zonder extensie te krijgen:
| 1 | BestandsnaamWOExt = Left(Bestandsnaam, InStr(Bestandsnaam, ".") - 1) |
