VB6ファイルのバージョン情報を取得する

スポンサーリンク

VB6 では、FileSystemObject (FSO) から File オブジェクトを生成して、GetFileVersion メソッドから取得します。

FileSystemObject を使用する場合は、[プロジェクト] メニューの [参照設定] を選択して「Microsoft Scripting Runtime」にチェックを付けてください。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
    ' FileSystemObject のインスタンスを生成する
    Dim cFso As FileSystemObject
    Set cFso = New FileSystemObject

    ' ファイルのバージョンを取得する
    Dim stVerInfo As String
    stVerInfo = cFso.GetFileVersion("C:\WINDOWS\Notepad.exe")

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFso = Nothing

    ' 取得したすべてのバージョン情報を表示する
    Call MsgBox(stVerInfo)

関連するリファレンス

準備中です。

スポンサーリンク