2

我有一个 Visual Basic 应用程序，并且我的主机中有一个名为 version.txt 的文件。

我想将它连接到我的 vba 应用程序，每当我更改 version.txt 中写入的数字时，该应用程序都会警告用户下载该应用程序的较新版本。我怎么能那样做？

4

1 回答 1

1

假设 Excel。常量保留在您的应用程序中，并且 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
于 2013-06-17T21:53:05.800 回答