Поиск файлов по размеру в директории и поддиректориях - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 3.786 из 5
Похожие ответы