用open打开一个输入流,存储就可以了。

解决方案 »

  1.   

    Open "c:\test.txt" For Output As #1   ' 打开输出文件。
    Write #1, text1.text   ' 写入以逗号隔开的数据。
    Close #1   ' 关闭文件。
      

  2.   

    Dim fso, file    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.CreateTextFile(App.Path & "\a.txt", True)
    file.write text1.text
    file.Close
      

  3.   

    JimXiang(吉祥) (2001-12-28 15:22:33)  得0分 
    你用一下公用对话框控件中的保存对话框的方法不就行了。  
    -----------------------------------------------
    那只是跳出一个保存文件的对话框,但是执行保存文件的功能
      

  4.   

    谢谢大家,我知道了,用APPEND!