CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to list all files in a given directory
Private Sub ListFiles(ByVal sPath As String, ByVal sExt As String)
    Dim sCurDir As String, sFile As String
    Dim colFolders As New Collection
 
    colFolders.Add IIf(Right(sPath, 1) = "\", sPath, sPath & "\")
    Do While colFolders.Count
        sCurDir = colFolders.Item(1)
        colFolders.Remove 1
 
        sFile = Dir$(sCurDir, vbDirectory)
        Do While Len(sFile)
            If Not (sFile = "." Or sFile = "..") Then
                If (GetAttr(sCurDir & sFile) Or vbDirectory) = vbDirectory Then
                    colFolders.Add sCurDir & sFile & "\"
                Else
                    If UCase$(Right$(sFile, Len(sExt) + 1)) = "." & UCase$(sExt) Then
                        Text1.Text = Text1.Text & sCurDir & sFile & vbCrLf
                    End If
                End If
            End If
            sFile = Dir
        Loop
    Loop
End Sub
'How to call this function:
'Call ListFiles("C:\Temp\", "txt")