RichTx32.OCXのバージョンをコードで確認するには (ID:78291)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 実際に使用するなら下記のようになるかと。 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