在VB6中，通过Command控件打开某文件

显示全部楼层 · 2011-4-12 13:46:38

例如这个例子：
Private Sub Command1_Click(Index As Integer)
Shell "word C:\帮助.doc", vbNormalFocus
End sub
假如我不知道文件的具体路径，只需要打开当前文件夹下的 "帮助.doc"文件，这个Shell 里应该如何写？
当前文件夹下=vb文件所在目录

千问 · 2011-4-12 13:46:38

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 LongPrivate Sub Form_Load()
ShellExecute Me.hwnd, "open", App.Path & "\" & "帮助.doc"

千问 · 2011-4-12 13:46:38

Dim FilesName As StringFilesName = "E:\Program Files\Microsoft Office\Office14\WINWORD.EXE " & Chr(34) & App.Path & "\帮助.doc" & Chr(34)Shell FilesName, vbNormalFocusApp.Pat

千问 · 2011-4-12 13:46:38

这个是不可能的！shell需要详细的路径，只能另寻他法