- VB,VBA
-
2011-02-14 - 更新:2017-11-29
この記事は最終更新日から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
この記事がお役に立ちましたらシェアお願いします
![](https://k-sugi.sakura.ne.jp/wp-content/themes/chic_grid3/images/icon-tag.png)
11,225 views