change code to only get text files

[AC]

The code below gets all the files in a folder and puts them in excel, can it be changed so it only gets the text, .TXT, files.
Excel 2003

Sub ReadFilesIntoActiveSheet()
'Must References Microsoft Scripting Runtime
    Dim fso As FileSystemObject
    Dim folder As folder
    Dim file As file
    Dim FileText As TextStream
    Dim TextLine As String
    Dim Items() As String
    Dim i As Long
    Dim cl As Range
 
    ' Get a FileSystem object
    Set fso = New FileSystemObject
 
    ' get the directory you want
    Set folder = fso.GetFolder("C:\Documents and Settings\Computer1\Desktop\test\")
    
    ' set the starting point to write the data to
    Set cl = ActiveSheet.Cells(1, 1)
 
    ' Loop thru all files in the folder
    For Each file In folder.Files
        ' Open the file
        Set FileText = file.OpenAsTextStream(ForReading)
 
        ' Read the file one line at a time
        Do While Not FileText.AtEndOfStream
            TextLine = FileText.ReadLine
 
            ' Parse the line into | delimited pieces
            Items = Split(TextLine, "|")
 
            ' Put data on one row in active sheet
            For i = 0 To UBound(Items)
                cl.Offset(0, i).Value = Items(i)
            Next
 
            ' Move to next row
            Set cl = cl.Offset(1, 0)
        Loop
 
        ' Clean up
        FileText.Close
    Next file
 
    Set FileText = Nothing
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
    

End Sub

 

[Domenic]

Try...

[font=Verdana]        [color=darkblue]If[/color] fso.GetExtensionName(file) = "txt" [color=darkblue]Then[/color]
    
           [color=green]' Open the file[/color]
           Set FileText = file.OpenAsTextStream(ForReading)

           .
           .
           .
    
           [color=green]' Clean up[/color]
           FileText.Close
           
        [color=darkblue]End[/color] [color=darkblue]If[/color]
           [/font]

 

[AC]

Domenic, thanks that did it.