VBA Få filnavn med GetFileName (FSO)

Denne korte opplæringen vil demonstrere hvordan du bruker GetFileName -metoden til FileSystemObject.

Få filnavn med VBA FileSystemObject

Denne leksjonen bruker FileSystemObject. For å bruke det, må du angi en referanse til VB-skriptets kjøretidsbibliotek. Se her for mer informasjon.

For å få filnavnet fra en hvilken som helst bane, kan du bruke:

123456789101112 Sub FSOGetFileName ()Dim filnavn som strengDim FSO som nytt filsystemobjektSett FSO = CreateObject ("Scripting.FileSystemObject")'Få filnavnFilnavn = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")'Få filnavn ingen utvidelseFileNameWOExt = Venstre (Filnavn, InStr (Filnavn, ".") - 1)Slutt Sub

Filnavnvariabelen vil da inneholde verdien av "Eksempelfil.txt", FilnavnWOExt -variabel vil være uten utvidelsen "Eksempelfil".

Få filnavn uten utvidelse

Som nevnt ovenfor, bruker du denne kodelinjen for å få filnavnet uten utvidelse:

1 FileNameWOExt = Venstre (Filnavn, InStr (Filnavn, ".") - 1)
wave wave wave wave wave