VB源码推荐：一个操作Ini文件的类

【VB源代码推荐:一个操作Ini文件的类】

&急性；-cini file . cls code-
& acute；此处定义了cIniFile class
Option Explicit。

&急性；//持有对
& acute；的引用的私有成员；//我们的ini文件的路径
Private strInI作为String

&急性；// Win API声明
私有声明函数WritePrivateProfileString _
Lib " kernel 32 " Alias " WritePrivateProfileString a " _
(ByVal lpApplicationName为String，_
ByVal lpKeyName为Any，_
ByVal lpString为Any，_
ByVal lpFileName为String)Long

私有声明函数GetPrivateProfileString _
Lib " kernel 32 " Alias " GetPrivateProfileString a " _
(ByVal lpApplicationName为String，_
ByVal lpKeyName为Any，_
ByVal lpDefault为String，_
ByVal lpReturnedString为String，_
ByVal nSize为Long，_
ByVal lpFileName为String)Long

私有函数MakePath(ByVal strDrv作为字符串，_
ByVal strDir作为字符串)作为字符串

&急性；//生成INI文件:保证sub dir
Do While Right $(str drv，1)= " \ "
str drv = Left $(str drv，Len(str drv)-1)
循环

Do While Left$(strDir，1) = "\"
strDir = Mid$(strDir，2)
循环

&急性；//返回path
MakePath = strrv & " \ " & strDir
End函数

公共Sub CreateIni(strDrv为字符串，strDir为字符串)

& acute；//创建新的ini文件
strInI = MakePath(strDrv，strDir)
End Sub

Public Sub WriteFile(strSection为String，_
strKey为String，_
strValue为String)