用VB在一个根目录下查找并打开word文件

我有一些word文件，会在一个根目录下移动（H:\） 想编个程序，在这个根目录下查找并打开。文件名一定且在一个command的caption属性中。 求思路和示例 东西发到我的邮箱 [email protected]或者q我 嗯~.那个你说的不是VB6.0编的吧。我的是6.0版本的

推荐一个新软件给你，你到网上搜一下WPS,这个软件功能强大，支持WORD ,EX ；而且支持在线WORD转换PDF文件

窗体画file、button、textbox各一个，窗体代码如下： Option Explicit 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() If Command1.Caption <> "未找到" Then ShellExecute Me.hwnd, "open", File1.Path & "\" & File1.FileName, vbNullString, vbNullString, 3 End If End Sub Private Sub File1_Click() If File1.ListCount > 0 Then Command1.Caption = File1.FileName Else Command1.Caption = "未找到" End If End Sub Private Sub Form_Load() File1.Path = "F:\CnccoAgricultural文档" Text1.Text = "" End Sub Private Sub Text1_Change() '模糊查询,docx为word2007 File1.Pattern = "*" & Text1.Text & "*.doc;*" & Text1.Text & "*.docx" '仅限word If File1.ListCount > 0 Then File1.ListIndex = 0 '下标从0开始 End If End Sub ======================================== 是vb6