如何在VB里面点击一下按钮，能够直接弹出一个位于同一文件夹内的文本文档？

Private Sub Command1_Click()
Dim Filepath AS String
Filepath=app.path
If Right(Filepath,1)<>"\" Then Filepath=Filepath & "\"
Filepath=Filepath & "文件名.txt"
Shell notepad Filepath
End Sub

Vbs行不行。
on error resume next
dim rs
set rs = Wscript.Createobject("Wscript.Shell")
rs.run "文本文档.txt"
set rs=nothing
复制上面的到记事本里，保存为任意名.vbs即可。

VB用shell只能打开EXE或BAT等格式的文件,而不能直接打开TXT格式的文本文件
可以先用shell打开notepad
再模拟按键ctrl+O
再模拟输入要打开的文件的完整路径就可以了
最后别忘了模拟回车键

Dim Fname
Fname = App.Path & "001.txt" '这里写要打开的txt文件的完整路径，记住，中间不要连“\”号，否则将出错～

Shell "notepad", vbNormalFocus
SendKeys "^{o}"
SendKeys Fname
SendKeys "{ENTER}"

Const FileName As String = "A.txt" '要打开的文件名
Dim FilePath As String
'获取正确的路径。。。
FilePath = IIf(Right(App.Path,