拡張子の取得

dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

dim sOutputFileEx
sOutputFileEx = fso.GetExtensionName("test.txt")  ' ファイル名から拡張子を抜き出す
WScript.Echo sOutputFileEx