buscador de archivos

[Skalitiko]

No entiendo bien eso de mayores a 100, lo que quieres es buscar los archivos cuyo peso sea mayor 100kB??, si es así entonces puedes hacerlo de esta manera:

Tienes que agregar la referncia para microsoft Script Runtime desde el menú project-> references

Private Fso As New Scripting.FileSystemObject

Private Sub Command1_Click()

LookFilesByFolders "c:\"
End Sub

Private Sub LookFilesByFolders(ByVal Fo As String)
Dim F As Folder
GetFiles Fo
For Each F In Fso.GetFolder(Fo).SubFolders
GetFiles IIf(Right(F.ParentFolder, 1) = "\", F.ParentFolder & F.Name, F.ParentFolder & "\" & F.Name)
LookFilesByFolders IIf(Right(F.ParentFolder, 1) = "\", F.ParentFolder & F.Name, F.ParentFolder & "\" & F.Name)
DoEvents
Next F
End Sub

Private Sub GetFiles(ByVal P As String)
Dim F As File
For Each F In Fso.GetFolder(P).Files
If (F.Size / 1024) > CDbl(Text1) Then
List1.AddItem F.ParentFolder & F.Name
End If
DoEvents
Next F
End Sub

Para que funcione, en un formulario tienes que agregar un textbox, un command button y un listbox, y dejarlos con el nombre por defecto. Espero tesirva de algo este ejemplo