'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
'★ ファイルパスからファイル名(拡張子あり)を取り出す
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Function zfSliceFileName(ByVal filePath As String) As String
zfSliceFileName = Mid(filePath, InStrRev(filePath, "\") + 1)
End Functionファイルパスからファイル名(拡張子あり)を取り出す
Excel VBA スニペット
コメント