Как распечатать файлы в папке, но только с определенным расширением(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