find files api

[Chrisio]

Hi All.
I use the below code to search for files of a given type in my program..some of the users have asked for a progress bar to see where the search is at only I have NO idea where to insert the bit of code do do this can any one help please

Function FindFilesAPI(path As String, SearchStr As String, FileCount As Integer, DirCount As Integer)
'On Error GoTo trap:
 
     ' Walking filename variable...
    Dim DirName As String ' SubDirectory Name
    Dim dirNames() As String ' Buffer for directory name entries
    Dim nDir As Integer ' Number of directories in this path
    Dim i As Integer ' For-loop counter...
    Dim hSearch As Long ' Search Handle
    Dim WFD As WIN32_FIND_DATA
    Dim Cont As Integer
    If Right(path, 1) <> "\" Then path = path & "\"
    ' Search for subdirectories.
    nDir = 0
    ReDim dirNames(nDir)
    Cont = True
    hSearch = FindFirstFile(path & "*", WFD)
    If hSearch <> INVALID_HANDLE_VALUE Then
        Do While Cont
        DirName = StripNulls(WFD.cFileName)
        ' Ignore the current and encompassing directories.
        If (DirName <> ".") And (DirName <> "..") Then
            ' Check for directory with bitwise comparison.
            If GetFileAttributes(path & DirName) And FILE_ATTRIBUTE_DIRECTORY Then
                dirNames(nDir) = DirName
                DirCount = DirCount + 1
                nDir = nDir + 1
                ReDim Preserve dirNames(nDir)
            End If
        End If
        Cont = FindNextFile(hSearch, WFD) 'Get next subdirectory.
        Loop
        Cont = FindClose(hSearch)
    End If
    ' Walk through this directory and sum file sizes.
    hSearch = FindFirstFile(path & SearchStr, WFD)
    Cont = True
    If hSearch <> INVALID_HANDLE_VALUE Then
        While Cont
            FileName = StripNulls(WFD.cFileName)
            If (FileName <> ".") And (FileName <> "..") Then
                FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow
                FileCount = FileCount + 1
                lstFilesfound.AddItem path & FileName
                DoEvents
            End If
            Cont = FindNextFile(hSearch, WFD) ' Get next file
        Wend
        Cont = FindClose(hSearch)
    End If
    ' If there are sub-directories...
    If nDir > 0 Then
        ' Recursively walk into them...
        For i = 0 To nDir - 1
            FindFilesAPI = FindFilesAPI + FindFilesAPI(path & dirNames(i) & "\", SearchStr, FileCount, DirCount)
        Next i
    End If
'End Function
 
'trap:
'Call crash
 
End Function

many thanks Chris

[manavo11]

You would have to know the number of files or dirs, so unless you do almost everything twice so you can count the files first then loop through them and increase the value of the progress bar I don't see a way...

[Chrisio]

thats what I thought....do u know of any other way to do this type of search??

Chris

[manavo11]

In the codebank I have two threads about searching. One for files and one for folders. Search for them... Maybe it is better

[Maldrid]

This is just a thought and I have no code to demonstrate, but maybe the idea can help. You could always find the size of the directory and it sub-directories (Storage wise I mean). Then while you are searching keep adding the total size of the files to a variable and each time divide it by the total size you are searching through. Obviously it wouldn't be an accurate progress since some files are bigger than others, but it still shows some type of progress . I also don't completly understand all of your code, so I can't help you on where you could place this.

[manavo11]

Not bad. I think with FSO you can get sizes...