Easy file seach utility

Category:

Files and Directories

Type:

Snippets

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

This search routine will return a filename and path based on all or part of the file name, then add it to a listview box.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Dim foldercount As Integer Dim SearchString As String

Code:

'Paste this code into a form along with a textbox, listview box, 
'and a command button (named as specified below)

Sub SearchFolders(folderspec)
    Dim lstitem As ListItem
    Dim folderslist(1 To 5000) As String
    Dim fs, f, f1, S, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    
    For Each f1 In sf
    
            foldercount = foldercount + 1
            folderslist(foldercount) = f1.Name

Next
    
    Dim X As Integer
    
    For X = 1 To foldercount
    
        Set f = fs.GetFolder(folderspec & "\" & folderslist(X))
        Set fc = f.Files
        
            For Each f1 In fc
        
                If InStr(UCase(f1), SearchString) <> 0 Then
                Set lstitem = lstResults.ListItems.Add(, , f1.Name)
                
                End If
        
            Next
    Next
    
End Sub

Private Sub cmdSearch_Click()

lstResults.ListItems.Clear

foldercount = 0

SearchString = UCase(txtSearchString.Text)

SearchFolders () 'search path goes here

End Sub