在VB中INI文件的读写（非常方便）
很多时候我们编一个程序不一定要用到注册表来保存设置（如果说一个程序没有设置就不算好程序了）。INI是一个很好的选择。有人说，Savesetting是一个不错的选择，但是我了解到，不能永久的保存（起码在系统重装的时候会丢失）。于是Ini作为一个Windows配置文件，可以放在本地路径，优势就呈现出来。下面讨论一下这个问题。
1,模块：
Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function SaveINI Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long
Function GetINI(AppName As String, KeyName As String, filename As String) As String
Dim RetStr As String
RetStr = String(10000, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))
End Function
2,调用：
读：Rtn=GetINI(appname, keyname, filename)
写：SaveINI appname,keyname,string,filename
调用例子：SaveINI "main","FontColor","801085","D:\"
3,参数解释：
例如INI文件中有这么一块：
[main]
FontColor=801085
其中：
main .................是appname
FontColor ..........是KeyName
801085 ...............是String
Filename ............INI的绝对路径
怎么，是不是现在可以用INI文件保存你的设置啦。