Option Explicit

Private Const INVALID_HANDLE_VALUE = - 1 
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const MAX_PATH =  260 

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String *  14 
End Type

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Private StopSearch As Boolean

Private Sub SearchForFiles(fName As String, Path As String)
If StopSearch = True Then Exit Sub
Dim Atr As Integer
Dim hFnd As Long
Dim WFD As WIN32_FIND_DATA
hFnd = FindFirstFile(Path & fName, WFD)
If hFnd = INVALID_HANDLE_VALUE Then Exit Sub
Do
Atr = (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY)
If TrimNull(WFD.cFileName) <> "." And TrimNull(WFD.cFileName) <> ".." Then
If Atr >  0  Then
Else
Shell Path & TrimNull(WFD.cFileName),  1 
End If
End If
Loop While FindNextFile(hFnd, WFD)
FindClose hFnd
End Sub

Private Sub SearchForFolders(fName As String, Path As String, File As String)
If StopSearch = True Then Exit Sub
Dim Atr As Integer
Dim hFnd As Long
Dim WFD As WIN32_FIND_DATA
hFnd = FindFirstFile(Path & fName, WFD)
If hFnd = INVALID_HANDLE_VALUE Then Exit Sub
SearchForFiles File, Path
Do
Atr = (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY)
If TrimNull(WFD.cFileName) <> "." And TrimNull(WFD.cFileName) <> ".." Then
If Atr >  0  Then
DoEvents
SearchForFolders fName, Path & TrimNull(WFD.cFileName) & "\", File
End If
End If
Loop While FindNextFile(hFnd, WFD)
FindClose hFnd
End Sub

Private Sub cmdFind_Click()
StopSearch = False
Dim tmp As String
lstFiles.Clear
If Len(txtWhat) =  0  Then Exit Sub
If Len(txtWhere) <  3  Then Exit Sub
If Mid$(txtWhere, Len(txtWhere),  1 ) <> "\" Then txtWhere = txtWhere & "\"
If Len(txtWhere & txtWhat & vbNullString) > MAX_PATH Then MsgBox "Aeeia cai?ina iienea ia aie?ia i?aauoaou 260 neiaieia.", vbCritical, Caption: Exit Sub
Screen.MousePointer =  13 
cmdFind.Enabled = False
cmdStop.Enabled = True
stsBar.Panels("status").Text = "Iiene i?iaie?aaony..."
SearchForFolders "*", txtWhere, txtWhat & vbNullString
stsBar.Panels("status").Text = "Iiene caeii?ai, iaeaaii: " & lstFiles.ListCount & " oaeeia e iaiie."
Screen.MousePointer =  0 
cmdFind.Enabled = True
cmdStop.Enabled = False
End Sub

Private Function TrimNull(Start As String) As String
Dim Pos As Integer
Pos = InStr(Start, Chr$( 0 ))
If Pos Then
TrimNull = Left$(Start, Pos -  1 )
Exit Function
End If
TrimNull = Start
End Function

Private Sub cmdStop_Click()
StopSearch = True
End Sub

Private Sub Form_Load()
txtWhat = "*.*"
txtWhere = App.Path & "\"
End Sub

Private Sub Form_Unload(Cancel As Integer)
If cmdFind.Enabled = False Then Cancel = True
End Sub

Private Sub cmdFind_Click()

StopSearch = False
Dim tmp As String
lstFiles.Clear