フォルダ 今いるパスの一つ前までのパス取得

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォルダ 今いるパスの一つ前までのパス取得]
Option Explicit


Function OneOfPath(strNowPath As StringAs String
'*********************************
'今いるパスの一つ前までのパス取得
'*********************************
On Error GoTo theerr:
Dim OneFolPath As String
OneFolPath = Left(strNowPath, InStrRev(strNowPath, "\") - 1)
OneOfPath = OneFolPath
Exit Function
theerr:
OneOfPath = ""
'--------------
'InStrRev 関数
'--------------
'ある文字列の中から指定された文字列を最後の文字位置から検索を開始し、
'最初に見つかった文字位置を返す関数。
'構文
'InstrRev(検索先文字, 検索する文字, 開始位置, 比較モード)
'InstrRev(~~~必須~~~, ~~~~必須~~~~, ~~略可~~, ~~~略可~~~)
'開始位置を省略すると -1 が使用され、最後の文字位置から検索を開始
'比較モードを省略すると、バイナリ モードで比較
'比較モード設定値
'定数 値 説明
'vbUseCompareOption -[-1]- Option Compare ステートメントの設定。
'vbBinaryCompare -----[0]- バイナリ モードで比較を行います。
'vbTextCompare -------[1]- テキスト モードで比較を行います。
'VbDatabaseCompare ---[2]- Microsoft Access の場合のみ有効。
End Function


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





Production Japan Import Application. Since 1998