Procurando Arquivos Grandes

[Bruno DAlmeida]

Galera,

Procurar arquivos em um diretorio eu sei fazer, mas não sei procurar com o criterio de tamanho, ex.: arquivos maiores que 2Mb.

Abaixo segue o que eu tenho mas fala colocar o criterio para achar maior que 2Mb.

Grato, Bruno

Sub FindFile()

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objSearch = objExcel.FileSearch
objSearch.LookIn = "D:\Tmp\Teste"
objSearch.SearchSubFolders = True
objSearch.Filename = "*.mp3"
objSearch.Execute


For Each strFile In objSearch.FoundFiles
    MsgBox strFile
Next

objExcel.Quit

End Sub

Editado Junho 23, 2010 por kuroi
Adicionar tag CODE

[kuroi]

se essa busca do excel não consegue localizar pelo tamanho, você pode tentar por fso.

[Bruno DAlmeida]

Valeu kuroi! Consegui por FSO.