FileSystemObjectオブジェクト - GetFileNameメソッド

  1. Home
  2. Excel
  3. VBA
  4. FileSystemObject
  5. FileSystemObjectオブジェクト

【書式】

FileSystemObject.GetFileName(pathspec)

指定したパスのうち、ファイル名とみなされる最終要素を返します。

引数pathspecにはファイル名を含むパスを指定します。指定するパスは実在しなくてもかまいません。たとえば、存在しない「G:\tanaka\toru.txt」を指定すると、最終要素の「toru.txt」を返します。

Sub test18()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Book1.xlsxを返します
    MsgBox FSO.GetFileName("C:\Work\Book1.xlsx")
    Set FSO = Nothing
End Sub