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

解決

neeter 2003-06-15 22:33:36 No: 78288 IP: [192.*.*.*]

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

編集削除

岡田之仁 2003-06-16 03:00:30 No: 78289 IP: [192.*.*.*]

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

編集削除

VBレスキュー(花ちゃん) URL 2003-06-16 23:09:20 No: 78290 IP: [192.*.*.*]

下記で取得できます。

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

編集削除

VBレスキュー(花ちゃん) 2003-06-16 23:29:07 No: 78291 IP: [192.*.*.*]

実際に使用するなら下記のようになるかと。
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-16 23:35:56 No: 78292 IP: [192.*.*.*]

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

編集削除