後ろからの文字列検索 (ID:83043)

名前

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

本文 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