- 日時： 2017/02/22 09:53
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[システム関係][ファイル][開発環境] *
* キーワード：ランタイム,サービスパック,バージョン,SP,msvbvm60.dll, *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿日 ： 2009/02/14 2017/02/22 修正
投稿者 ： 花ちゃん
-----------------------------------------------------------------------------------
最新のサービスパックは、下記のからダウンロードして下さい。
Microsoft Visual Basic 6.0 Service Pack 6 累積的な更新プログラム
発行日 : 2012/08/16
ナレッジベース記事 : KB957924
http://www.microsoft.com/ja-jp/download/details.aspx?id=7030
-------------------------------------------------------------------------------
http://hanatyan.sakura.ne.jp/yybbs/read.cgi?mode=view2&f=146&no=0
上記で紹介していた、Visual Basic 6.0 ランタイム拡張ファイル (KB926857) をDLして
インストールしたのだが、後で見るとインストール済みかどうかの判断材料がないので
何か調べる方法がないのかなと思って調べていたら、msvbvm60.dll のバージョンでVB6.0の
サービスパックの状況がある程度判断できるようです。
これで、インストール先のランタイムのサービスパックの状況が判断できるかと思います。
バージョン サービスパック
6.0.81.76 製品版
6.0.82.68 SP1/SP2
6.0.84.50 SP2
6.0.84.95 SP3
6.0.88.77 SP4
6.0.89.64 SP5
6.0.92.37 SP5
6.0.93.30 SP5
6.0.96.90 SP5
6.0.97.82 SP6
6.0.98.2 SP6(2009/02 現在の最新) 注意 OS によっても違いがあります。
6.0.98.15 SP6(2009/07/14 最終更新日) 発行日 : 2012/08/16 のサービスパックをインストール後
6.0.98.32 SP6(2011/11/2 KB2575928）
但し、Mscomctl.ocx のバージョンは、6.1.98.34 になっています。
従って、主なファイルのバージョンも調べておく必要があるかと思います。
因みに、プログラムから調べるには下記のようにでもすれば解ります。
使用コントロールと配置図等は、下図を参考にして下さい。
'使用する前に、[プロジェクト]→[参照設定]で Microsoft Scripting Runtime
'の参照にチェックを入れておいて下さい｡
Option Explicit
Private Sub Command1_Click()
Dim Fso As New FileSystemObject
Dim FileName As String
Dim Ver As String
FileName = Fso.BuildPath(Fso.GetSpecialFolder(SystemFolder), Combo1.Text)
If Fso.FileExists(FileName) = False Then
MsgBox "指定のファイルが見つかりません。"
Exit Sub
End If
Ver = Fso.GetFileVersion(FileName)
Label1.Caption = Combo1.Text & "ファイルのバージョン：" & Ver & vbCrLf & _
"ファイルサイズ：" & Fso.GetFile(FileName).Size & _
" 最終更新日付：" & Fso.GetFile(FileName).DateLastModified
End Sub
Private Sub Form_Load()
Dim s1 As String
' バージョン 最終更新日付
Combo1.AddItem "msvbvm60.dll" '6.0.98.15 2009/07/14
Combo1.AddItem "Comctl32.ocx" '6.0.98.34 2012/05/02
Combo1.AddItem "Mscomctl.ocx" '6.1.98.34 2012/06/06
Combo1.AddItem "vb6jp.dll" '6.0.89.88 2000/10/02
Combo1.AddItem "MSCOMCT2.OCX" '6.1.98.16 2010/02/16
Combo1.Text = "msvbvm60.dll"
s1 = "Ver.6.0.98.32 : KB2575928 (IE 9 の BorderStyle 0 時の不具合対策？）" & vbCrLf
s1 = s1 & "Ver.6.0.98.21 : KB983234 (KB970157 の IE6 不具合対策)" & vbCrLf
s1 = s1 & "Ver.6.0.98.15 : KB970157 (モーダルフォームの IE8 対応)、Windows 8 Developer Preview" & vbCrLf
s1 = s1 & "Ver.6.0.98.2 : KB941029、Windows Vista(SP1)" & vbCrLf
s1 = s1 & "Ver.6.0.97.99 : KB934602 (Class_Terminate イベント時のクラッシュ対策)" & vbCrLf
s1 = s1 & "Ver.6.0.97.98 : KB930828 (モーダルフォームの IE7 対応)" & vbCrLf
s1 = s1 & "Ver.6.0.97.97 : Windows Vista" & vbCrLf
s1 = s1 & "Ver.6.0.97.82 : Visual Studio 6.0(SP6), Windows Server 2003(SP1)" & vbCrLf
s1 = s1 & "Ver.6.0.96.90 : Windows Server 2003, Windows XP(SP2), Windows 2000(SP4)" & vbCrLf
s1 = s1 & "Ver.6.0.96.32 : KB307211 (Project1.exe.cfg をサポート)" & vbCrLf
s1 = s1 & "Ver.6.0.93.30 : SharePoint" & vbCrLf
s1 = s1 & "Ver.6.0.92.37 : Windows XP (SPなし, SP1)" & vbCrLf
s1 = s1 & "Ver.6.0.91.15 : KB297108 (SendKeys 対応)、KB291103 (OLE コンテナ対応)" & vbCrLf
s1 = s1 & "Ver.6.0.89.64 : Visual Studio 6.0(SP5), Commerce Server 2002(※)" & vbCrLf
s1 = s1 & "Ver.6.0.88.77 : Visual Studio 6.0(SP4), Commerce Server 2002(※)" & vbCrLf
s1 = s1 & "Ver.6.0.84.95 : Visual Studio 6.0(SP3), Windows 2000 Server, Office XP, SQL Server 2000(Rel.A)" & vbCrLf
s1 = s1 & "Ver.6.0.84.50 : SQL Server 2000, SBS 2003" & vbCrLf
s1 = s1 & "Ver.6.0.82.68 : Visual Studio 6.0(SP1, SP2), Office 2000" & vbCrLf
s1 = s1 & "Ver.6.0.82.44 : NT4(SP4)" & vbCrLf
s1 = s1 & "Ver.6.0.81.76 : Visual Studio 6.0(SPなし)" & vbCrLf & vbCrLf
s1 = s1 & " Comctl32.ocx 6.0.98.34 617816 5/2/2012 12:17 (KB957924 で更新された時のファイル情報)" & vbCrLf
Label2.Caption = s1
' 洩れている分は必要に応じ追加して下さい・
' 詳しくは下記で魔界の仮面弁士さんが掲載されておられますので参考にして下さい。
' http://www.hanatyan.sakura.ne.jp/yybbs/read.cgi?mode=view2&f=38&no=46
End Sub
PS：開発環境の[プログラムの追加と削除]に記載がある場合とない場合があります。
実行結果(画像をクリックすると元のサイズで見る事ができます。)
|
VB6.0のランタイムのサービスパック情報を取得(VB6.0)