打开txt文件

[xiang_qin]

怎样打开本文件夹下已存在txt文件用Shell "App.Path & \123.txt "的语句，给出的提示是文件未找到。

[xiang_qin]

多谢，
其实3楼的可以无需调用函数直接用
Shell "notepad D:\新建 文本文档.txt"
即可

[贝隆]

Shell不能用来打开txt文件

[贝隆]

使用API函数ShellExcute可以实现

Option Explicit
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()
    Dim lngP As Long
    lngP = ShellExecute(Me.hwnd, "Open", "D:\新建 文本文档.txt", vbNullString, vbNullString, 3)
End Sub

[zdingyun]

Private Sub Command1_Click()
    Dim RetVal
    RetVal = Shell("C:\WINDOWS\system32\notepad.EXE " & App.Path & "\123.txt", 1)
End Sub

[贝隆]

[Quote=引用 3 楼 zdingyun 的回复:]
VB code
Private Sub Command1_Click()
Dim RetVal
RetVal = Shell("C:\WINDOWS\system32\notepad.EXE " & App.Path & "\123.txt", 1)
End Sub
[/Quote]
呵呵，学习！