VBでファイルの判定

　VBでドラッグドロップやcommondialogなどで読み込まれたファイルの拡張子の判定をしたいのですがどうしたらよいかわかりません。
　たとえば、テキストファイルが読み込まれるとテキストボックスに表示、ほかのファイルが読み込まれると違う処理をするというようなことをしたいのですがわからないので教えていただきたいです。

No.5 回答者： Masato_a 回答日時： 2001/06/17 13:20

VB6ならFSOをつかうと拡張子が取得できます。

拡張子は３文字とは決まってないのでFSOを使えば汎用性があっぷします。
FSOにはほかにも機能がたくさんあるのでぜひ。

No.4 回答者： tom777 回答日時： 2001/06/14 10:28

VB6でしたら、InStrを使って文字列を検索するよりは

InStrRevを使う方が簡単かと思います。
InStrRevはInStrの逆バージョンです。

No.3 回答者： osaosa42 回答日時： 2001/06/14 09:49

以下の方法でファイル拡張子を取得できます。

------------------------------------------------
Dim fs As Object
Dim strExt As String
Dim strPath As String
Set fs = CreateObject("Scripting.FileSystemObject")'FileSystemObject作成
strExt=fs.extGetExtensionName(strPath)'ファイル拡張子取得
Debug.Print strPath
-------------------------------------------------
つーことで。

No.2 回答者： nakashi 回答日時： 2001/06/13 18:31

Dim sDest As String

Dim sBuf() As String

sDest = "C:\temp\abc.efg.txt"
sBuf = Split(sDest, ".")
Debug.Print sBuf(UBound(sBuf))

VB6なら

No.1 回答者： arata 回答日時： 2001/06/13 11:33

ファイル名に"."があるかどうかは、Instrを使って調べます。

結果が０だったら、拡張子なし。

ですが、ファイル名に"."が２つ以上ある場合、Instrは、最初の"."の位置を拾いますから、要注意です。

と言うわけで、

１．Instrで、"."の位置を調べる
２．"."の位置が０なら拡張子なし。０より大きければ３以降の処理を行う
３．"."の位置が０になるまで以下を繰り返す
・"."の位置＋１を拡張子とする。(Mid関数を使用）
・調べる対象をこの拡張子とした文字列にする

こんな感じです。

もっと直感的な方法で、文字を後から調べていく方法もあります。

文字の桁数をLen関数で調べて
For i = Len(ファイル名) To 1 Step -1
でまわして、Mid(ファイル名,i,1)が"."だったら、この位置＋１が拡張子（Mid(ファイル名,i+1)）。あとはExit Forでループを抜ける。

この方が簡単ですね。