Questa breve esercitazione dimostrerà come utilizzare il metodo GetFileName di FileSystemObject.
Ottieni il nome del file con VBA FileSystemObject
Questa lezione utilizza FileSystemObject. Per utilizzarlo, sarà necessario impostare un riferimento alla libreria runtime di script VB. Vedi qui per maggiori informazioni.
Per ottenere il nome del file da qualsiasi percorso, puoi utilizzare:
123456789101112 | Sub FSOGetFileName()Dim FileName As StringDim FSO come nuovo oggetto FileSystemImposta FSO = CreateObject("Scripting.FileSystemObject")"Ottieni nome file"FileName = FSO.GetFileName("C:\ExamplePath\ExampleFile.txt")"Ottieni nome file senza estensione"FileNameWOExt = Left(FileName, InStr(FileName, ".") - 1)Fine sottotitolo |
La variabile FileName conterrà quindi il valore di "ExampleFile.txt", la variabile FileNameWOExt sarà senza l'estensione "ExampleFile".
Ottieni nome file senza estensione
Come notato sopra, per ottenere il nome del file senza estensione utilizzare questa riga di codice:
1 | FileNameWOExt = Left(FileName, InStr(FileName, "."") - 1) |