vb如何读写ini文件

VB中有没有读取INI文件的函数，同样功能的API函数是什么？

回答:

    VB没有直接读写INI文件的语句，必须借助Windows API来操作INI文件。相应的Windows API函数有两类：一类是GetProfileInt、GetProfileString、WriteProfileInt和WriteProfileString，它们是读写Win.ini中的设置；另一类是GetPrivateProfileInt、GetPrivateProfileString、WritePrivateProfileInt和WritePrivateProfileString，它们可以读写如何一个.ini文件。这些函数的声明都在Win32api.txt中找到。先在VB中建立一个模块，输入以下代码： 
  

   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 WritePrivateProfileString Lib "kernel32" _ 
    Alias "WritePrivateProfileStringA" (ByVal lpApplicationName _ 
    As String, ByVal lpKeyName As Any, ByVal lpString As Any, _ 
    ByVal lpFileName As String) As Long 

    下面的例子将从njcom.ini中读取NJStar Communicator的目录。 
     Dim s As String * 256 
     
     GetPrivateProfileString "NJCOM Options", _ 
     "Home Directory", "", s, 256, "njcom.ini" 
     Label1.Caption = s 

    下面的例子将利用WritePrivateProfileString删除掉njcom.ini中Home Directory设置。这里我们的第三个参数不是通常的字符串，而是0&，这里你可以看到我们在声明参数类型时使用As Any的好处。
    WritePrivateProfileString "NJCOM Options", _
     "Home Directory", 0&, "njcom.ini"