vba - VBA - バージョン システム

Question

Visual Basic アプリがあり、ホストに version.txt というファイルがあります。

vba アプリに接続したいのですが、version.txt に書かれた番号を変更するたびに、アプリはユーザーに新しいバージョンのアプリをダウンロードするように警告します。どうすればそれができますか？

Answer 1

エクセルを想定しています。定数はアプリに残り、Version.txt の値が変更されます。

Public Const dVERSION As Double = 6.2

Public Function IsCurrentVersion() As Boolean

    Dim sFile As String
    Dim lFile As Long
    Dim dVer As Double

    sFile = ThisWorkbook.Path & Application.PathSeparator & "Version.txt"
    lFile = FreeFile

    Open sFile For Input As lFile
    Input #lFile, dVer
    Close lFile

    IsCurrentVersion = dVer <= dVERSION

End Function