VBA：ファイルのバージョンチェック
VBAからドライバ等のファイルのバージョンを調べたい場合に使えるコードです。
ドライバが最新のものかどうかのチェックなどで使えます。
今回は「Selenium」を導入するためにドライバのバージョンチェックをしたので、その備忘録です。
ドライバのバージョンチェック
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
'//現在SeleniumBasicフォルダに保存されているドライバのバージョンをチェックします' Function chkDriverVer() As String Dim FSO As Object Dim uName As String '保存先をデフォルトから変更している方は変更してください。' uName = Environ("USERNAME")'ユーザ名を取得しています。' SeleniumDriverPath = "C:\Users\" & uName & "\AppData\Local\SeleniumBasic\edgedriver.exe" Set FSO = CreateObject("Scripting.FileSystemObject") chkDriverVer = FSO.GetFileVersion(FileName:=SeleniumDriverPath) End Function |
