VB6读取INI文件

开发环境:VB6 

程式版本更新, 读取INI文件做对比, 确认版本是否最新.

可用VB6的工具下的API检视员来自动生成API调用代码.

INI文件内容:

[Version]

TEST=2017-11-20 00:00:00

调用API.

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
                ByVal lpApplicationName As String, _
                ByVal lpKeyName As Any, _
                ByVal lpDefault As String, _
                ByVal lpReturnedString As String, _
                ByVal nSize As Long, _
                ByVal lpFileName As String) As Long
                
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
                ByVal lpApplicationName As String, _
                ByVal lpKeyName As Any, _
                ByVal lpString As Any, _
                ByVal lpFileName As String) As Long

读取INI文件:

    Dim strOldVersion As String

    strOldVersion = String(20, 0)
    GetPrivateProfileString "Version", "TEST", "2017-07-01 00:00:00", strOldVersion, 20, ".\Version.ini"

写INI文件:

    Dim newDate As String
    newDate = Format(AdoFile!filecreatedate, "yyyy-MM-dd hh:MM:ss")
    WritePrivateProfileString "Version", "TEST", newDate, App.Path & "\Version.ini"