メインメニュー
検索
読み物
これからはじめる環境報告
IMDSについて
JAMAシートについて
環境報告って何?
EnMa
環境法規
便利なサイト
ログイン
ユーザー名:

パスワード:


パスワード紛失

Re: JAMP MSDSplus, AIS ver.4.0のツール類が掲載されました!

このトピックの投稿一覧へ

なし Re: JAMP MSDSplus, AIS ver.4.0のツール類が掲載されました!

msg# 1.31
depth:
1
前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2012-3-27 21:36
J.M. 
書き直しました。
もし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
'---------------------------------------------------------------------------------------------------------
投票数:0 平均点:0.00
返信する

この投稿に返信する

題名
ゲスト名   :
投稿本文

投稿ツリー

  条件検索へ


Ferretアクセス解析