Question

VB SHELL函数如何打开一个记事本程序

如何设置，用通用对话框打开一个记事本文件

Answer 1

放置一个CommonDialog控件和一个按钮
代码：
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文件|*.txt"
CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\system32\notepad.exe " & CommonDialog1.FileName, vbNormalFocus)
End Sub