ファイルの拡張子を取得するには？ (ID:74914)

名前

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

本文 ファイル名が取得できているのならたとえば Dim FileNameArray Dim StrFileName As String StrFileName = "Test.Txt" If InStr(1, StrFileName, ".") = 0 Then MsgBox "なし" Else FileNameArray = Split(StrFileName, ".") MsgBox FileNameArray(UBound(FileNameArray)) End If とか・・・ 拡張子なし判定は、 If UBound(FileNameArray)) = 0 Then でもいい。