IEのバージョンチェック機能

IEのバージョンがIE6→IE7→IE8βと変わるごとに、シストレの動作に何かしらの
不具合が出てきてさすがにムカついてきた今日この頃。

しかし、新バージョンにはそれなりのメリットもあることから、
バージョンアップを避けられない人もいる事でしょう。

そんな悩みを解決ではなく、回避する方法のひとつとして、
システム側でIEのバージョンを事前に把握し、バージョンにあった処理を
させることで回避を狙います。

その手始めとして、VBAでIEのバージョンをチェックする方法です。

---------------------------------------------------------------
Sub IE_VerCK()
'InternetExplorerのバージョンを調べる

　'オブジェクトの定義
　Dim IE_Ver As String
　Dim FsObj As Object

　Set FsObj = CreateObject("Scripting.FileSystemObject")

　'GetFileVersion関数を使用
　IE_Ver = FsObj.GetFileVersion("C:Program FilesInternet ExplorerIEXPLORE.EXE ")

　'結果を表示
　MsgBox "Internet Explorer" & Chr(13) & _
　　" Majar Version : " & Left(IE_Ver, InStr(IE_Ver, ".") - 1) & Chr(13) & _
　　" Minor Version : " & IE_Ver

　'後処理
　Set FsObj = Nothing

End Sub
---------------------------------------------------------------