Question

vb 如何用shell打开文件或文件夹

vb窗体上有text1和listview1两个控件
当在text1里输入F:\test时， listview1控件上列出test里所有的文件夹和文件。
选中其中一个文件或文件夹，然后点确定，这时如何用shell来打开这个文件或文件夹
shell (text1.text &"\"& ListView1.SelectedItem.Text),1
这段代码不行，请指教

Answer 1

打开文件夹
Private Sub Command1_Click()
Dim filePath As String
filePath = "d:\"
Shell "explorer " & filePath, vbNormalFocus
End Sub

至于打开文件设计到文件打开方式，所以自己调应相关的case 来调用相应的程序

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()
ShellExecute 0, vbNullString, text1.text &"\"& ListView1.SelectedItem.Text, vbNullString, vbNullString, 8
End Sub

Answer 3

shell只能打开可执行文件,也就是运行程序.如.exe,.com,.bat等