VB6 拡張子を指定して表示

質問

こんにちわ。
拡張子を選んで表示する方法について質問させてください。

あるフォルダがあり、その中にはファイル名が・・・
1.txt
2.txt
3.txt
1.bmp
2.bmp
3.bmp
というファイルが６つあります。

コンボボックスを作りそのフォルダを選択したときにテキストファイルのみのファイル名から拡張子を取ったもの
1
2
3
（このように）
を入れ、１が選択されたときに
text1.textに1.txtの内容を
image1に1.bmpの内容を
入れる様にするにはどうしたらいいでしょうか？

ファイルの数はテキストとbmpの３つ３つの時もあれば、６つ６つの時もあります。

そのフォルダまでのパスはフォルダ参照で取得したものがpass.txtに入っています。

回答No.1

R_Moon · ベストアンサー

mari1215さん、こんにちわ。
あるフォルダ内のテキストファイルのみ拾い出してコンボボックスに格納するには
Dim strDirPath As String
Dim strFileName As String
'strDirPathにpass.txtからパスを格納
strFileName = Dir(strDirPath & "*.txt",vbNormal)
Do While strFileName <> ""
'ここでstrFileNameから拡張子を除いたファイル名をコンボボックスに追加
strFileName = Dir
Loop

選択された時に表示するのは
コンボボックスのClickイベントでTextプロパティを参照してその名前でOpenステートメントとInputステートメントでテキストファイルの内容を取得しテキストボックスに格納。イメージファイルもPictureプロパティにBMPファイルを指定すればできますね。

大雑把ですがこんな感じでいかがでしょうか？

お礼

ありがとうございます。

これでテキストファイルだけを抽出できるんですが、ファイル名がフルで表示されてしまうので、拡張子をとるにはどうしたらいいんですか？
Dir$(pass.Text & "*.txt")

回答No.2

R_Moon

mari1215さん、こんにちわ。#1で回答した者です。

>拡張子をとるにはどうしたらいいんですか？

例えば
Left(strFileName,Instr(strFileName,".") - 1)
とすればどうでしょうか。

お礼

ありがとうございます。
解決いたしました。