VBA ファイル名、フォルダ名分割

ドライブ名、フォルダ名を含むファイルパスからファイル名、フォルダ名を分割する方法

Dim FileSysObj As Object
  Dim FullPath As String
  Dim FileName As String
  Dim FolderName As String

  FullPath = "C:\temp\test.dat"

  Set FileSysObj = CreateObject("Scripting.FileSystemObject")
  FileName = FileSysObj.GetFileName(FullPath)
  FolderName = FileSysObj.GetParentFolderName(FullPath)
  Set FileSysObj = Nothing


' 結果
' FileNameには "test.dat"
' FolderNameには "C:\temp"