buscador de archivos

[jevalenzuela]

por favor si alguien me puede ayudar con un codigo para buscar archivos en c, la idea es contar con un textbox y un boton y que al presionar el boton busque en c: todos los archivos que encuentre mayores que el numero que ingrese en el text box por ejemplo si ingreso 100 me busque y muestre todos los archivos desde el 101 por favor ayuuuudenmeeee!!!!!!!!!!!!

[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

[jevalenzuela]

ta weno el codigo, pero de que forma puedo hacer para que me seleccione hasta un parametro de peso hartos archivos, por ejemplo: quiero que me seleccione archivos en que la suma de todos ellos sea no mayor a 5 mb ?

[Skalitiko]

Puedes declarar un Sumador por ejemplo

'A nivel de formulario
Private Sum as double
'En el procediemiento getfiles
Private Sub GetFiles(ByVal P As String)
Dim F As File
For Each F In Fso.GetFolder(P).Files
If (F.Size / 1024)+ sum <= 5120 Then '5120 = 5mb
List1.AddItem F.ParentFolder & F.Name & chr(9) & (f.size /1024) & " KB"
sum = sum + (f.size/1204)
End If
DoEvents
Next F
End Sub

[josedvd13]

Ola amigos pues la verdad soy nuevo en este foro y pues la verdd a mi me dejaron hacer algo parecido a lo que ustedes han hecho, ami me dejaron

1. Ingresar en un textobox un archivo para buscar dentro de las carpetas existentes
2. Ingresar en otro textbox el nombre para remplazar por este archivo seleccionado anteriormente.
3. Y remplazar todos los archivos con el nombre del paso 2.

Gracias x su ayuda.

Esperando respuesta