Поиск файлов по размеру в директории и поддиректориях - VB
Формулировка задачи:
Всем привет!
Пока новичок в этом деле, по этому сильно не пинайте если вопрос глупый.
Нашел пример поиска файлов, подогнал его по своим нуждам, но ни как не могу решить один вопрос. Мне надо искать файлы не по названию, а по размеру, точнее все файлы с размером меньше или ровно 1000 байт. Возможно ли это реализовать на базе этого кода?
Решение задачи: «Поиск файлов по размеру в директории и поддиректориях»
textual
Листинг программы
option explicit dim c as long Private Sub Form_Load() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") c=0 Search FSO.GetFolder("C:\") msgbox c End Sub Sub Search(Fold As Object) Dim SubFold As Object Dim File As Object For Each File In Fold.Files If File.Size <= 1000 Then Debug.Print File.Path, File.Size:c=c+1 Next File On Error GoTo ErrHandle For Each SubFold In Fold.SubFolders Search SubFold Next SubFold Exit Sub ErrHandle: MsgBox "Нет допуска к папке """ & Fold.Path & """" Err.Clear End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д