پیدا کردن فایل های بزرگ تر از 100 کیلو بایت

 1Const MAX_SIZE = 1024
 2Dim Fso, File, Folder, Path, Message
 3Message = ""
 4Path = "C:\\Windows"
 5Set Fso = CreateObject("Scripting.FileSystemObject")
 6Set Folder = Fso.GetFolder(Path)
 7For Each File In Folder.Files
 8  If File.Size > MAX_SIZE Then
 9    Message = Message & File.Size & " Bytes =====> " & File.Path & vbCrLf
10  End If
11Next
12MsgBox Message
13Set Folder = Nothing
14Set File = Nothing
15Set Fso = Nothing