Textboxに表示される拡張子を消すには (ID:109840)

名前

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

本文 魔界の仮面弁士様，ありがとうございます。 教えていただいたことを手がかりに，VB6で以下のようにして できるようになりました。 Dim x As Integer x = InStrRev(CommonDialog1.FileName, ".", -1) Text1.Text = Left(CommonDialog1.FileName, x - 1) これで画像ファイル名以降を出さないようにできたのですが さらに欲が出て，画像ファイル名の前（C:\○○\）を消したいと 思い，次のようにしてみました。 Dim i As Integer i = InStrRev(CommonDialog1.FileName, "\", -1) Text1.Text = Right(CommonDialog1.FileName, Len_(CommonDialog1.FileName) - i) この２つを組み合わせ，画像ファイル名のみを表示させる場合には， どのようにしたらよいのでしょうか。 よろしくお願いいたします。