VB6写入文本、追加写入文本函数封装使用方便

Public Function xiewenben(ByVal yy As String, ByVal xlujing As String) '覆盖写入文本  xiewenben(text2.text,App.Path & "/222.ini")

    Open xlujing For Output As #1  '保存内容文件

       Print #1, yy

    Close #1

    xiewenben = "覆盖保存文本完毕"

End Function

Public Function xiewenben_zhuijia(ByVal yy As String, ByVal xlujing As String) '覆盖写入文本  xiewenben_zhuijia(text2.text,App.Path & "/222.ini")

    Open xlujing For Append As #1  '保存内容文件

       Print #1, yy

    Close #1

    xiewenben_zhuijia = "追加保存文本完毕"

End Function

Public Function xiewenben_zhuijiab(ByVal yy As String, ByVal xlujing As String) '覆盖写入文本  xiewenben_zhuijia(text2.text,App.Path & "/222.ini")

    Open xlujing For Append As #1  '保存内容文件

       Print #1, yy;

    Close #1

    xiewenben_zhuijiab = "追加保存文本完毕"

End Function