VB保存txt文件

Question

Dim a
On Error GoTo err
CommonDialog1.InitDir = "App.Path" '调用commondialog控件，并使其初始化路径为当前路径
CommonDialog1.Filter = "*.DAT|*.DAT" '文件类型为txt
CommonDialog1.ShowSave 'commondialog对话框的调用

Open CommonDialog1.FileName For Output As #6

Input #6, Text1.Text
err:
Close #6
End Sub
以上内容哪里有错的

Answer 1

Dim a
On Error Resume Next
Err.Clear
'不能使err，因为err是系统内的一个对象
CommonDialog1.InitDir = App.Path
'调用commondialog控件，并使其初始化路径为当前路径
CommonDialog1.CancelError = True
CommonDialog1.Filter = "*.txt|*.txt" '文件类型为txt
CommonDialog1.ShowSave 'commondialog对话框的调用
If Err.Number = 0 Then
Open CommonDialog1.FileName For Output As #6
If Err.Number = 0 Then
Print #6, Text1.Text
End If
Close #6
End If
Err.Clear

Answer 2

Private Sub Form_Load()
Dim a
On Error GoTo err
CommonDialog1.InitDir = App.Path '调用commondialog控件，并使其初始化路径为当前路径
CommonDialog1.Filter = "*.DAT|*.DAT" '文件类型为txt
CommonDialog1.ShowSave 'commondialog对话框的调用
Open CommonDialog1.FileName For Output As #6
Print #6, Text1.Text
Close #6
err:
End Sub

Answer 3

保存成txt文件应该使用文件操作，你的文件操作内容更改如下：
Open CommonDialog1.FileName For Output As #6
Print #6,Text1.Text
Close #6

Answer 4

CommonDialog1.InitDir = "App.Path"错
应改为CommonDialog1.InitDir = App.Path

Input #6, Text1.Text错
应改为Write #6, Text1.Text

Answer 5

说明一下for后面的output是一次行写入,也就是写入之前先清空1.txt里面的内容.
上面的代码只能实现1.txt的内容为"第二句话"
for
后面有有几种方式,如
append(追加)等.
如果是这样
Open
"C:\1.txt"
for
append
as
#1
print
#1,"第一句话"
print
#1,"第二句话"
Close
#1
那么1.txt的内容为:
第一句话
第二句话

Answer 6

我倒,我QQ:113443584,我直接发一个记事本源码给你.
包括其他菜单什么的都有了.