Question

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

懂VB的请进，输入代码即可

Answer 1

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}"

Answer 2

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

Answer 3

Const FileName As String = "A.txt" '要打开的文件名
Dim FilePath As String
'获取正确的路径。。。
FilePath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
'调用记事本打开文件
Shell "Notepad " & FilePath & FileName, vbNormalFocus

Answer 4

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