| ||||
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 |
| ||||
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 |
| |||
Respuesta: buscador de archivos 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 |