调用记事本编辑文本文件

[haituan]

题目是这样的：通过点击按钮弹出“打开文件”对话框，选择一个文本文件后调用记事本程序编辑该文件后保存（用shell函数运行记事本程序）
我写的部分未完善代码如下：

Private Sub Command2_Click()
CommonDialog1.Filter = "文本文件(*.txt)|*.txt"
CommonDialog1.Action = 1
Open CommonDialog1.FileName For Input As #1
Shell ("notepad" ), vbNormalFocus


Close #1
End Sub
现在的问题是如何在shell中获得commondialog1打开文件的路径并用notepad打开？

[用户 昵称]

shell """c:\windows\notepad.exe"" " & dialog1.filename, vbnormalfocus

[用户 昵称]

将form的cancelerror设置true
Private Sub Command2_Click()
	on error goto errhandle
	CommonDialog1.Filter = "文本文件(*.txt)|*.txt"
	CommonDialog1.Action = 1
	shell """c:\windows\notepad.exe"" " & CommonDialog1.filename, vbnormalfocus
	exit sub
errhandle:
	err.clear
End Sub

[myy168]

CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本:" & FileName

[myy168]

CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本:" & FileName

[myy168]

[code=VB][ CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本:" & FileName]

[haituan]

十分感谢jennyvenus和myy168 ，问题已经解决了。

[学习风]

来晚了，......