Как распечатать файлы в папке, но только с определенным расширением(odp,ppt)

Private Sub Command1_Click()
Dim mFile As String, mFiles() As String, i As Integer, f As Integer
mFile = Dir("C:\1\*.odp")
Do While mFile <> ""
    ReDim Preserve mFiles(i)
    mFiles(i) = mFile
    i = i + 1
    mFile = Dir
Loop
mFile = Dir("C:\1\*.ppt")
Do While mFile <> ""
    ReDim Preserve mFiles(i)
    mFiles(i) = mFile
    i = i + 1
    mFile = Dir
Loop
f = FreeFile
Open "C:\1\ppt_&_odp.txt" For Append As f
    For i = LBound(mFiles) To UBound(mFiles)
        Print #f, mFiles(i)
    Next i
Close f
End Sub

Dim s$, i&, ext$, n%
n = FreeFile
Open "c:\files.log" For Output As #n
Print #n, "Scan dir c:\dir"
s = Dir$("c:\dir\*")
While Len(s)
    i = InStrRev(s, ".")
    If i > 0 Then ext = LCase$(Mid$(s, i)) Else ext = ""
    If ext = ".txt" Or ext = ".ppt" Then
        Print #n, s
    End If
    s = Dir
Wend
Close #n

Dim sFileName As String
Const sPATH As String = "C:\Temp"
Open sPATH & "FileList.log" For Output As #1
Print #1, "Scan dir " & sPATH
sFileName = Dir$(sPATH)
While Len(sFileName)
    If sFileName Like "*.odp" Or sFileName Like "*.ppt" Then
        Print #1, sFileName & " - " & vbTab & FileLen(sPATH & sFileName) & " байт"
    End If
    sFileName = Dir
Wend
Close #1