返信する: JAMP

題名
ゲスト名
パスワード
メッセージアイコン
投稿本文	入力支援機能表示サンプル [もっと...]
オプション	注目トピックをオンにする HTMLタグを有効にする詳細なオプション顔アイコンを有効にする XOOPSの修飾機能(BBCode/自動リンク等)を有効にする自動改行を有効にする数値エンティティ表現を有効にする特殊エンティティ表現を有効にする

Re: JAMP MSDSplus, AIS ver.4.0のツール類が掲載されました！: 投稿者: J.M. 投稿日時: 2012-3-27 21:36; 書き直しました。
もしMSXML6.dllがなければ、「ファイルが存在しません」とエラーになるはず。

空の文字列が出てくるとは不可思議な。
'-------------------------------------------------------------------------------------------------------
On Error Resume Next

set fso =createobject("Scripting.FileSystemObject")
Dim version
version = fso.GetFileVersion("c:\windows\system32\msxml6.dll")

If IsNull(version) then

MsgBox "？？？", vbOKOnly

else

MsgBox "MSXMLのバージョンは" & vbcr & """" & version & """" & vbcr & "です。", vbOKOnly,"MSXML バージョン"

End if
'---------------------------------------------------------------------------------------------------------