Question

vb编程时，我把一个文件的路径放在一个变量里，用shell如何打开呢？如果不能的话，用什么方法可以打开？

api，excel和word等我都知道，就是打开txt的不懂，各位高手能给我各例子吗？
即各位告诉我txt对象api及其它的用法，给我写个例子就行。我不要长篇大论，懂得几句代码就行，谢谢了！
还有，vb通过搜索查到想要的应用程序，然后让其运行呢？这个各位高手随便讲都行，我洗耳恭听

Answer 1

加入 FilePath 放的就是txt文件的路径
Shell "notepad.exe " & FilePath, vbNormalFocus
API:
ShellExecute声明：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
例子，打开一个doc
ShellExecute Me.hwnd, "open", "C:\1.doc", "", "", 0
当然，上面的文本文件也可以的

追问

提示文件未找到，这是我的一部分代码
Private Sub File1_DblClick()
Dim docname As String
If Right(File1.FileName, 1) = "\" Then
docname = File1.Path + File1.FileName
Else
docname = File1.Path + "\" + File1.FileName
End If
If Right(File1.FileName, 4) = ".txt" Then
Shell "notepad.exe" & docname, vbNormalFocus
End If
End Sub

追答

Shell "notepad.exe " & docname, vbNormalFocus
notepad.exe后有个空格，再加引号

追问

你好，没出错，但是双击了很多次也不显示。打开不了。shell语句不能打开变量docname里面的内容吗？docname是一个变量，用来动态存放不同的文件路径和文件名。跪求方法

追答

cmd 下打开一个文本文件的应该是这样的
notepad.exe "c:\1.txt"
因此，在用shell调用时，如果是notepad.exe" & docname，那么会变成notepad.exe"c:\1.txt"
我空格，cmd不会执行打开命令

你上面的代码，我自己复制了执行了一下，完全没有问题

Answer 2

Private Sub Form_Load()
a = "C:\y\工程1.exe"
Shell a, vbHide
End Sub