如何做单击vb的一个命令按钮打开某一个文件？
例如打开txt文本文件（不是把文件打开在窗体上的文本框中，而是把文件用它原本的打开程序打开），最好能打开各种文件。
最好写明函数名称（不是shell)，以及如何使用这个函数编程的语句（尽量写得较详细，不需要非常高深的看不懂的语句）。不过，一定要是vb上可以编程的语句，其他的我不需要，谢谢！
用cmd 打开文件：
shell "cmd.exe /c start "+chr(34)+chr(34)+" "+chr(34)+"你的文件路径"+chr(34),vbhide
有效防止shell打不开除exe以外格式的程序。
shell "cmd.exe /c start "+chr(34)+chr(34)+" "+chr(34)+"你的文件路径"+chr(34),vbhide
有效防止shell打不开除exe以外格式的程序。
温馨提示：内容为网友见解，仅供参考
第1个回答 推荐于2017-09-22
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 Const SW_SHOWNORMAL = 1
打开：
ShellExecute 0, "open", "c:\1.txt", "", vbNullString, SW_SHOWNORMAL
"c:\1.txt", ""
分别为文件路径和执行参数(一般是exe)本回答被提问者采纳
Private Const SW_SHOWNORMAL = 1
打开：
ShellExecute 0, "open", "c:\1.txt", "", vbNullString, SW_SHOWNORMAL
"c:\1.txt", ""
分别为文件路径和执行参数(一般是exe)本回答被提问者采纳
第2个回答 2010-02-01
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 Const SW_SHOW = 5
Private Sub Command1_Click()
Dim strFloder As String
strFloder ="打开文件的路径（只用输到不包含文件名的路径。例如C:\1.txt.只用输“C:\”就可以了。）"
ShellExecute Me.hwnd, "open", "打开文件的文件名", 0, strFloder, SW_SHOW
End Sub
Private Const SW_SHOW = 5
Private Sub Command1_Click()
Dim strFloder As String
strFloder ="打开文件的路径（只用输到不包含文件名的路径。例如C:\1.txt.只用输“C:\”就可以了。）"
ShellExecute Me.hwnd, "open", "打开文件的文件名", 0, strFloder, SW_SHOW
End Sub
第3个回答 2018-12-13
做程序的是不是都太复杂了，是不是可以直接shell“粘贴exe程序源地址”，是不是就好了，那么复杂，但是移动了源文件，这个命令就失效了
相似回答
