フォルダ 今いるパスからフォルダ名だけを取得する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォルダ 今いるパスからフォルダ名だけを取得する]
Option Explicit


Public Function OnlyFolderName(strPath As StringAs String
'***************************************
'今いるパスからフォルダ名だけを取得する
'***************************************
Dim spl As Variant, st As Variant
st = Right(strPath, Len(strPath) - InStrRev(strPath, "\"))
'st = Split(strPath, "\")
'st = st(UBound(st))
OnlyFolderName = st
End Function


Private Sub test()
    MsgBox OnlyFolderName(ThisWorkbook.Path)
End Sub





Production Japan Import Application. Since 1998