フルパス名から拡張子だけを取り出す
Declare Function PathFindExtension Lib "shlwapi.dll" Alias "PathFindExtensionA" _
(ByVal lpszPath As String) As Long
Declare Function PathFindExtension Lib "shlwapi.dll" Alias "PathFindExtensionA" _引数
(ByVal lpszPath As String) As Integer
ファイル名戻り値
正常終了のとき "."が先頭にある拡張子へのポインタ備考
具体的な使い方はサンプルを参照。サンプル