dim obj,dlg
set obj = CreateObject("SeraphyScriptTools.Shell")
set dlg = CreateObject("SeraphyScriptTools.CommDialog")
do
	dim name
	name = dlg.OpenFileDialog(,"実行ファイル(*.EXE)|*.EXE;*.SCR|DLL(*.DLL)|*.DLL;*.OCX|すべて(*.*)|*.*")
	if(isEmpty(name)) then exit do
	info = obj.GetDllVersion(name)
'	info = obj.GetDllVersion(name,1) ' 詳細タイプ
	if(isEmpty(info)) then
		msgbox "バージョン情報はありません"
	else
		msgbox "VersionInfo" & vbcrlf & info
	end if
loop