• Home
 · 
• Files/File Controls/Input/Output
 · 
• Search folders (recursively or not) for files of a particular extension

Search folders (recursively or not) for files of a particular extension

Search folders (recursively or not) for files of a particular extension

API Declarations


' for the original code which i have heavily edited.
' Use: for instance, if you wanted to find all the
' mp3s in your root music directory, you would call -

'Call get_files(fso.GetFolder("C:\music"), ".mp3", True)
'So: ^ ^ ^
' Directory extension recursive or not
'Email me if you have any questions!
Dim filetext As String



Rate Search folders (recursively or not) for files of a particular extension

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim objfile As File
    Dim objfolder As Folder
    Dim fso As New FileSystemObject
    Dim j As Integer
    j = 0
    
    If tfolder <> "" Then
        For Each objfile In tfolder.Files
            filetext = filetext + objfile
                    If Right(filetext, 4) = extn Then
                        List1.AddItem filetext, j
                        Label10.Caption = Label10.Caption + filetext + vbNewLine
                        j = j + 1
                    End If
            filetext = ""
        Next

        If recurse = True Then
        For Each objfolder In tfolder.SubFolders
            Call get_files(objfolder, extn, True)
        Next
        End If
        
        Set fso = Nothing
        
    End If
End Sub