'C:\tese.txt の拡張子を取得する Dim stExtension As String = _ System.IO.Path.GetExtension("C:\tese.txt") ' 取得した拡張子を表示する MsgBox(stExtension) '結果 = ".txt"