Question

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

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

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

Private Sub Form_Load()
ShellExecute Me.hwnd, "open", App.Path & "\" & "帮助.doc", "", "", 5
End Sub

Answer 2

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

App.Path 当前进程所在目录。
经测试，在VB6编译后，到Win7、Office2010下可用。 调用系统的[word]打开当前目录下的"帮助.doc"。

Answer 3

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