VB操作.ini后綴文件的方法

讀文件用到GetPrivateProfileString，寫(xiě)文件需要用到WritePrivateProfileString。
    在窗體放置兩個(gè)命令按鈕Command1與Command2，分別用來(lái)執(zhí)行寫(xiě)操作與讀操作。
    Private 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
    Private 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
    Private Sub Command1_Click()
    Dim A As Long
    寫(xiě)信息
    修改ABC.INI文件中TIP字段中START的值為當(dāng)前系統(tǒng)時(shí)間
    如果該文件不存在會(huì)自動(dòng)建立,當(dāng)函數(shù)返回值為0時(shí)說(shuō)明修改不成功
    A = WritePrivateProfileString("TIP", "START", Time$, App.Path & "\ABC.INI")
    If A = 0 Then MsgBox ("寫(xiě)文件時(shí)出錯(cuò)")
    End Sub
    Private Sub Command2_Click()
    Dim A As Long
    Dim T As String
    讀取信息
    T = Space$(1000) ’事先定義讀取值的字串寬度
    讀取ABC.INI文件中TIP字段中START的值并打印出來(lái)
    當(dāng)函數(shù)返回值為0時(shí)說(shuō)明讀取數(shù)據(jù)出錯(cuò)
    A = GetPrivateProfileString("TIP", "START", "", T, 1000, App.Path & "\ABC.INI")
    If A = 0 Then MsgBox "找不到所需字段": Exit Sub
    Print Left$(T, Len(Trim$(T)) - 1)
    End Sub