Foro Excel

Hola a todos me gustaria saber como puedo mejorar estos dos codigos , necesito crear un directorio en excel de todos mis archivos existentes en mi PC de excel, y que al frente me coloque el nombre del archivo y al frente el tamaño del mismo en bytes....la idea es abrir mediante hipervinculos el archivo que sea necesario, eso ya lo hago mediante formulas....tengo estos dos codigos no se como implementarlos....en lo que puedan ayudar seria genial...gracias...


este busca en subdirectorio y muestra en msgbox los archivos que se contiene de excel en dicha unidad pero la idea seria copiar la ruta en una hoja de excel y al frente de la ruta, el tamaño en bytes....

Sub buscararchivo()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Minidisk"
.SearchSubFolders = True
.Filename = "*.xls"
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "There were no files found."
End If
End With
End Sub


y este busca todos los archivos del PC y pega la ruta en una hoja de excel


Option Explicit
Option Base 1
'Bill Manville

Dim aFiles() As String, iFile As Integer

Sub ListAllFilesInDirectoryStructure()
Dim Counter As Integer
iFile = 0
ListFilesInDirectory "c:\" ' change the top level as you wish

For Counter = 1 To iFile
ActiveSheet.Cells(Counter, 1).Value = aFiles(Counter)
Next

End Sub

Sub ListFilesInDirectory(Directory As String)
Dim aDirs() As String, iDir As Integer, stFile As String

' use Dir function to find files and directories in Directory
' look for directories and build a separate array of them
' note that Dir returns files as well as directories when vbDirectory
'specified
iDir = 0
stFile = Directory & Dir(Directory & "*.*", vbDirectory)
Do While stFile <> Directory
If Right(stFile, 2) = "\." Or Right(stFile, 3) = "\.." Then
' do nothing - GetAttr doesn't like these directories
ElseIf GetAttr(stFile) = vbDirectory Then
' add to local array of directories
iDir = iDir + 1
ReDim Preserve aDirs(iDir)
aDirs(iDir) = stFile
Else
' add to global array of files
iFile = iFile + 1
ReDim Preserve aFiles(iFile)
aFiles(iFile) = stFile
End If
stFile = Directory & Dir()
Loop

' now, for any directories in aDirs call self recursively
If iDir > 0 Then
For iDir = 1 To UBound(aDirs)
ListFilesInDirectory aDirs(iDir) & Application.PathSeparator
Next iDir
End If
End Sub


Gracias....


Cordialmente,


Juan Carlos Neira..

Para mover los archivos a una sola carpeta por que no solo los buscas dentro del explorador de windows y los mueves, ya que al parecer este codigo solo funcionaria para eso y solo te dedicas al codigo del tamaño del archivo
Solo eso te falta

Prueba este codigo para el tamño del archivo, lo demas me parece que ya lo tienes.

Sub MostrarInformacionDeAccesoDeArchivo()
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(Nombre_de_tu_Acrhivo)
s = f.Size
MsgBox s
End Sub


Saludos

Resumiendo

una variante seria listarlo en un listbox colocado en un formulario y desde ahi abrir el archivo seleccionado

Es un ejemplo que ya tenia elaborado y no considera el tamaño de los archivos pero puede adptarse [trae varios metodos]

lo construi pensando en localizar mas rapido un archivo determinado,por ejemplo deseo ver todos los archivos que tengan algun grafico:
escribo la palabra en la caja de texto y le doy listar archivos y me da todos aquellos que mencina o tiene la palabra "grafico" ,de ahi escojo alguno y lo abro

pd.-personalmente me es muy util por la gran cantidad de archivos que he subido al foro y tambien de los que he bajado.

hola ST cuando use tu archivo me sale el mensaje de error de compilacion NO SE HA DEFINIDO SUB O FUNCION y me resalta InStrRev(funcion).
que puedo hacer para intalar, definir o lo que halla que hacer con esta fución, en realidad no es primera vez que me pasa, me ha pasado con muchos mas archivos y otras funciones. podrá ser por mi versión de excel, o es que esas funciones hay que instalarlas por aparte, y si es asi donde puedo bajarlas, de ante mano muchas gracias.

gracias a todos, por los aportes lo decia esto.. por aquello de que tengo muchos archivos de macros de excel en mi PC y tambien financieros....en un foro anterior vi una solucion del complemento ASAP solutions, y es realmente bueno se adapta a las necesidades basicas de un directorio de excel....y no solo de excel sino de todos los archivos que se tengan en la PC....LO MODIFIQUE Y se los envio adjunto con un archivo que encontre de Poli para buscar archivos....gracias a Poli, a galileo a francisco y a todos los que me ayudaron a encontrar esta solucií²n .... el archivo lo anexo adjunto para que lo vean.....


Cordialmente,


Juan Carlos Neira

y el adjunto :p

Cesar:
lamento mucho en esta ocasion no poder ayudarte,lo mas que puedo recomendarte es que reproduzcas el error y veas la ayuda disponible a ver si eso te da un a pista mejor

para reproducir el error (supongo que es el 35)

Sub reproducir()
Error 35
End sub

ahora te mostrara el mensaje de error y debes hacer click en el boton "Ayuda"

ahi te mostrara como 4 posibes causas de tu problema.(y mucho me temo que tengas razon en tu hipotesis,o este por el lado de alguna referencia que falte o una "dll" y ni idea la respecto de eso)

por lo que solo activo el post para que alguien mas lo lea y te pueda ayudar
asi aprendemos los 2 je,je

por cierto yo uso la version 11 de excel(2003)

se me escapaba.-es funcion solo extrae y muestra el nombre del archivo,por lo que puedes buscar alguna otra funcion que lo sutituya o simplemente eliminar esa parte ya que no es indispendable para el fin que se persigue,solo es un agregado visual en el form

Hola con todos.
Me permiti tomar las sentencias puestas aqui; para agregar algunas cositas para listar los archivos de una Pc.
espero sea de Utilidad

Saludos