Displaying listbox items in text1.text

[peet]

a bit more "sexy"

Private Sub Command3_Click()
    Dim sFile As String
    Dim s As String
    Dim sPath As String
    Dim sArr() As String
    Dim sFileMasks(4) As String
    Dim i As Integer
    
    sFileMasks(0) = "*.BMP"
    sFileMasks(1) = "*.JPG"
    sFileMasks(2) = "*.TIF"
    sFileMasks(3) = "*.JPEG"
    sFileMasks(4) = "*.GIF"
    
    sPath = "C:\TEST\"
    
    For i = 0 To UBound(sFileMasks())
        sFile = Dir(sPath & sFileMasks(i))
        Do While sFile <> ""
            s = s & sPath & sFile & vbCrLf
            sFile = Dir
        Loop
    Next i
        
    'get all the files found into an array
    sArr = Split(s, vbCrLf)
    
    'fill the listbox
    List1.Clear
    For i = 0 To UBound(sArr())
        List1.AddItem sArr(i)
    Next i
End Sub