VB读写INI文件

  '******************************************************************************************
'* 需要注意的问题 *
'******************************************************************************************
'1.INI文件的路径必须完整,文件名前面的各级目录必须存在,否则写入不成功,该函数返回 FALSE 值.
'2.文件名的路径中必须为 \\ ,因为在VC++中, \\ 才表示一个 \ .
'3.也可将INI文件放在程序所在目录,此时 lpFileName 参数为: ".\\student.ini".
'4.使用前请先初始化变量ProfileName
'******************************************************************************************
'* API 函数声明 *
'******************************************************************************************
'为初始化文件中指定的条目取得字串
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
'为初始化文件中指定的条目获取一个整数值
Declare Function GetPrivateProfileInt Lib "kernel32" Alias _
"GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal nDefault As Long, _
ByVal lpFileName As String _
) As Long

'在初始化文件指定小节内设置一个字串
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _