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