(Resolved)ShellExecute to FindFiles

[JemimaChadwick]

Hi,
I am using the ShellExecute call to open the FindFiles Dialog. I am making the call thus (borrowed from Peet's contributions):

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 Const SW_SHOWNORMAL = 1
 
Private Sub Command1_Click()
    Dim l As Long
    l = ShellExecute(Me.hwnd, "Find", "E:/Jemmy", "", "", SW_SHOWNORMAL)
End Sub

The Find dialog appears. Now, When I give a search criteria, I need to get the results of this find in a recordset or Array or any other means for me to loop through the results and work around with it. Has anyone anything to suggest on this?

Note: The above is the requirement. So I don't mind if thr's an alternative solution than using ShellExecute either.

thanks,
Jemima.