想打开一个文本文件，用这代码成吗？

Question

Private Sub Command1_Click()
Shell "E:\桌面\新建文件夹\123.txt", vbNormalFocus
End Sub网上有人说是用这个打开程序啊，难道就不能用这来打开文本吗，是可看见的打开，就像平常我们打开一个程序那样，并不是那种Opne #什么的打开

Answer 1

那该怎么写啊，比如打开.txt　和　.html

Answer 2

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
    Call ShellExecute(Me.hwnd, "Open", "E:\桌面\新建文件夹\123.txt", vbNullString, vbNullString, 1)
End Sub

Answer 3

Shell "notepad.exe E:\桌面\新建文件夹\123.txt", vbNormalFocus 

Answer 4

找到答案了Shell "notepad.exe " & App.Path & "\123.txt", vbNormalFocus
Shell "explorer.exe " & App.Path & "\每日.html", vbNormalFocus

Answer 5

只要系统能双击打开的文件，ShellExecute 函数都能打开，包括.exe等其他文件。