【VBA】フルパスからファイル名を取得する

フルパスからファイル名を取得する方法は
複数あります!

ここでは私が可読性が良いと考える方法を
記載します!

VBA

「FileSystemObject」の「GetFileName」を用いて、フルパスからファイル名を取得します。

Option Explicit

Sub sample()
    
    Dim fso As Object
    Dim fileFullPath As String
    Dim fileName As String
    
    'ファイルのパスを指定
    fileFullPath = "C:\Users\user\Desktop\aiueo.txt"
    
    Set fso = CreateObject("Scripting.FileSystemObject")

    'ファイル名を取得
    fileName = fso.GetFileName(fileFullPath)
    
    MsgBox (fileName)
    
    '後片付け
    Set fso = Nothing
    
End Sub

実行結果

フルパスからファイル名を取得することが出来ました。

タイトルとURLをコピーしました