VB如何创建记事本的.TXT文档

VB如何在指定的文件夹中(如D盘的Temp文件夹)创建一个名为abc的记事本的.TXT文档,而且向文档中输入指定TextBox控件中的内容

---

Dim txtStream As TextStream
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Set txtStream = fso.OpenTextFile(App.Path & "\abc.txt", ForWriting, True)

---

txtStream.Write text1.text

---

Open "c:\x.txt" For Output As #1
Print #1, Text1.Text
Close #1

---

Temp文件夹如果不存在，要先创建。

---

VB code:

Private Sub Command1_Click()
If Dir("d:\temp") = " " Then MkDir "d:\temp"
Open "d:\temp\abc.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

---

学习了

---

1楼正解

---

Open "d;\temp\abc.txt" For Append As #1
Print #1, Text1.Text
Close #1

---

append 比 Output  好

---

引用

append 比 Output  好

不一定啊,要看在什么情况了,

---

建议楼主去买本VB基础书看看吧，这个问题太小儿科了。
或者装上MSDN

---

引用

append 比 Output  好

不同场合的用法而已

没有谁比谁好的说法.

---

给你个折腾点的：

格式：