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

名前

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

本文 難しく考えなくても、単に、それら(LeftとRightの) 両方の処理を行えば良いだけですよね。 'ファイル名を受け取る S = CommonDialog1.FileName '拡張子部分を捨てる処理 X = InStrRev(S, ".") If X > 0 Then S = Left(S, X - 1) End If 'フォルダ部分を捨てる処理 X = InStrRev(S, "\") If X > 0 Then S = Right(S, Len(S) - X) '『S = Mid(S, X + 1)』の方が簡単ですけれどね。 End If Text1.Text = S もしくはMidを使って、切り出す処理を1回だけにする事もできるでしょう。 あるいは、先に書いたGetBaseNameメソッドですかね。(これが一番簡単かな?) Text1.Text = CreateObject("Scripting.FileSystemObject").GetBaseName(CommonDialog1.FileName)