カテゴリー
SugiBlog Webデザイナー・プログラマーのためのお役立ちTips

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

この記事は最終更新日から1年以上経過しています。

FileSystemObjectを使用する場合、例のようにCreateObjectを利用するか
[ツール]-[参照設定]で[Microsoft Scripting Runtime]の参照追加が必要。

Function get_file_version(ByVal strFilePath As String) As String

    Dim cFSO      As Object
    Dim stVersion As String

    'FileSystemObjectのインスタンスを生成
    Set cFSO = CreateObject("Scripting.FileSystemObject")

    'ファイルのバージョンを取得する
    stVersion = cFSO.GetFileVersion(strFilePath)

    'オブジェクト破棄
    Set cFSO = Nothing

    get_file_version = stVersion

End Function
この記事がお役に立ちましたらシェアお願いします
11,006 views

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です