wshzw

请教：
如果原*.ini文件中已有数据，如何能使原*.ini文件在原有数据的下一行再增加一行数据？

下面的代码只能擦除原有数据后再把新数据写入，没能达到上述要求……
   Dim myStr
   myStr = "加一条数据"
   Open "c:\hzw.ini" For Output As #1
   Print #1, myStr
   Close #1

wshzw

非常感谢！
用 Append 就成功的达到了我一楼的要求，妙！

wshzw

第一楼的要求已经达到了，谢谢！

再次请教，如果要求再复杂些，即：
要增加的数据如果与已有的数据相同，则不增加；否则，增加一行数据。
请指点，谢谢！

wshzw

谢谢楼上两位的指点！在两位的指点下，我用如下代码达到了要求：

如果"c:\hzw.ini"的内容如下：
=加一条数据1
=加一条数据2
=加一条数据3
=加一条数据
------------------------------
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 Form_Load()
   Dim myStr$, mStr(), i%
   
   myStr = "加一条数据"
   Open "c:\hzw.ini" For Input As #1
   Do While Not EOF(1)
      ReDim Preserve mStr(i)
      Line Input #1, mStr(i)
      i = i + 1
   Loop
   Close #1
   
   For i = 0 To UBound(mStr)
      If Split(mStr(i), "=")(1) = myStr Then Exit Sub
   Next i
   WritePrivateProfileString App.Title, "", myStr, "c:\hzw.ini"
End Sub