我是新手，第一天学编程，希望版主给我改一下这个附件，这个附件他搜索的盘符是可以选择的任何一个盘，我想改成程序的对应目录，比如我的VB6生成的文件名叫1.exe,然后我要搜索的是和1.exe同一个根目录下的文件夹888,帮我改一下搜888这个文件夹的代码



比如参考一下
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 hWnd, "open", App.Path & "\文件名", nil, nil, 1
End Sub

我百度搜索出来上面的代码是打开1.exe这个程序的相同目录下的文件夹名,我是想用这样的方法叫你帮我改一下搜索1.exe相同目录下的文件夹