(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.

[jim mcnamara]

Here is a good discussion and samples on find file. But as you read it, you'll see that you need a different strategy - find files doesn't return a value...

http://www.mvps.org/vbnet/code/shell/findallfiles.htm

[jim mcnamara]

Oh - and here is what I've found on .fnd file formats

[JemimaChadwick]

Jim...i cldn't find the way to capture the results here. But i got a post on the General VB Forums that gave it. Thanks anyways, Jim.

- Jemima.