Dim Ret As Long
Dim nowv, newv As String
nowv = Space(10)
newv = Space(10)
'事先定义读取值的字串宽度
'读出新版本和旧版本
Ret = GetPrivateProfileString("update", "ver", "", nowv, 10, App.Path & "\Update\Update.dll")
Ret = GetPrivateProfileString("config", "ver", "", newv, 10, App.Path & "\config.dll")
If nowv <> newv Then
谁知道我的这个为怎么读不出来内容呢,后面改成INI也读不出来呢.为什么谁知道呢
GetPrivateProfileString函数的具体说明： Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)
说明
为初始化文件中指定的条目取得字串
返回值
Long，复制到lpReturnedString缓冲区的字节数量，其中不包括那些NULL中止字符。如lpReturnedString缓冲区不够大，不能容下全部信息，就返回nSize-1（若lpApplicationName或lpKeyName为NULL，则返回nSize-2）
参数表
参数 类型及说明
lpApplicationName String，欲在其中查找条目的小节名称。这个字串不区分大小写。如设为vbNullString，就在lpReturnedString缓冲区内装载这个ini文件所有小节的列表
lpKeyName String，欲获取的项名或条目名。这个字串不区分大小写。如设为vbNullString，就在lpReturnedString缓冲区内装载指定小节所有项的列表
lpDefault String，指定的条目没有找到时返回的默认值。可设为空（""）
lpReturnedString String，指定一个字串缓冲区，长度至少为nSize
nSize Long，指定装载到lpReturnedString缓冲区的最大字符数量
lpFileName String，初始化文件的名字。如没有指定一个完整路径名，windows就在Windows目录中查找文件