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

Формулировка задачи:

Привет всем! Как распечатать из папки файлы только с расширениями odp и ppt? А так же размер каждого из них?

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

textual
                            Листинг программы 
                        

                            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
                        

Оцени полезность:

9 голосов , оценка 4.444 из 5

Похожие ответы