Как распечатать файлы в папке, но только с определенным расширением(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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
