如何将内容写如文本文件中

Question

比如我在Text1中的text内容是 "小张",Text2中的text是"32岁" 如何将这2个内容保存到文本文件中然后再换行以便保存下1条记录。

Answer 1

晕你这种级别的小鸟鸟就别来CSDN上混了。去拿一本基本的VB书看上两个月再来吧。。

Answer 2

Dim fso, txtfile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
    txtfile.Write (text1.text) 
    txtfile.WriteLine (text2.text)
    txtfile.WriteBlankLines (1)  '写入换行符
    txtfile.Close

Answer 3

open "c:\output.txt" for append as #1
print #1, text1.text,text2.text
close #1