後ろからの文字列検索

---

後ろからの文字検索をして、指定の文字列を取得したいんです。

文字列＝１２３４５¥あああああ¥２２２２２¥うううう.txt

文字列のパスから、ファイル名部分のみを取得したいんです。（うううう.txt）のみ
”¥”で検索をしても、たくさんでてきてしまいますし、どうすればいいんでしょうか？

編集 削除

---

InStrRev 関数を使用すればいいですよ。

編集 削除

---

private function Filename(Pass) As string
dim i as integer
for i=len(Pass) to 1 step -1
  if mid(pass,i,1)="\" then
     exit for
  enf if
next
if i<>len (pass)
Filename=mid(Pass,i,len(Pass)-i)
end if
exit function

編集 削除

---

Option Explicit
Dim tmp As String
Dim File_name As String
Dim dat() As String

Private Sub Command1_Click()

tmp = "１２３４５\あああああ\２２２２２\うううう.txt"

dat = Split(tmp, "\")
File_name = dat(UBound(dat))
Label1.Caption = File_name

End Sub

編集 削除

---

'シンプルに

Private Sub Form_Load()
    tmp = "１２３４５\あああああ\２２２２２\うううう.txt"
    MsgBox Mid(tmp, InStrRev(tmp, "\") + 1)
End Sub

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。