RichTx32.OCXのバージョンをコードで確認するには

解決

neeter 2003-06-16 07:33:36 No: 78288

RichTx32.OCXのバージョンをコードから確認したいのですが、
どなたか方法を教えていただけないでしょうか。
よろしくおねがいします。

岡田之仁 2003-06-16 12:00:30 No: 78289

以下のＵＲＬを参考に・・・
http://www.kit.co.jp/vbit/QAndA04.htm#ファイルのバージョン情報
以上。

VBレスキュー(花ちゃん) URL 2003-06-17 08:09:20 No: 78290

下記で取得できます。

Debug.Print CreateObject("Scripting.FileSystemObject") _
.GetFileVersion("C:\WINDOWS\SYSTEM\Richtx32.ocx")

VBレスキュー(花ちゃん) 2003-06-17 08:29:07 No: 78291

実際に使用するなら下記のようになるかと。
Private Sub Command1_Click()
    Dim Fso As Object
    Dim FilePath As String
    Set Fso = CreateObject("Scripting.FileSystemObject")
    FilePath = Fso.GetSpecialFolder(1)
    Debug.Print Fso.GetFileVersion(FilePath & "\Richtx32.ocx")
    Set Fso = Nothing
End Sub

neeter 2003-06-17 08:35:56 No: 78292

ありがとうございます。早速試してみます。