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

Set objArgs = WScript.Arguments if objArgs.Count <> 1 then WScript.Echo "ファイルをドラックしてください。一個だけだよ" WScript.Quit end if dim sInputFilename sInputFilename = objArgs(0) WScript.Echo sInputFilename