如何浏览，并打开文件，和windows打开文件一样

Question

同题目啦，如何浏览，然后打开所有类型的文件，最好给个详细的代码了，谢谢哦

Answer 1

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
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString, 你要打开的文件名, vbNullString, "", SW_SHOWNORMAL
End Sub用这个方法可以使用系统默认的程序开打开你指定的文件。其实它不止可以打开文件，还可以打开文件夹、一个网址、打开默认的Email发送程序...

Answer 2

恩，不错啊，不过我用一个CommonDialog1拿到的文件名，不行呢
Private Sub Command1_Click()
Dim aaa As String
CommonDialog1.CancelError = True
'On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
'MsgBox CommonDialog1.FileName
Text1.Text = CommonDialog1.FileName
aaa = Text1.Text
 ShellExecute Me.hwnd, vbNullString, "aaa", vbNullString, "", SW_SHOWNORMAL
Exit SubEnd Sub

Answer 3

ShellExecute Me.hwnd, vbNullString, aaa, vbNullString, "", SW_SHOWNORMAL OrShellExecute Me.hwnd, vbNullString, CommonDialog1.FileName ,vbNullString, "", SW_SHOWNORMAL 

Answer 4

首先,你的这句ShellExecute Me.hwnd, vbNullString, "aaa", vbNullString, "", SW_SHOWNORMAL是不应该有引号的.
其次,你可能要使用全路径名.除非你当前路径是文件所在的路径.否则找不到文件.