Cómo están ??
Informando de la nueva versión de nuestro addin de este Blog, la versión 2.3.6.
Qué es lo nuevo?
Agrega un formulario que nos permite elegir una carpeta de nuestra PC para listar los archivos conternidos en una nueva hoja de Excel. De la misma manera nos permite filtrar por extesión, además de que podemos elegir si hace la búsqueda por subcarpetas.
Ubicación del menú
Formulario
Resultado
Código
La función que se utiliza fue tomada del sitio http://excelexperts.com/ y aunque tuve que modificarla para los propósitos específicos, la muestro tal cual está en el sitio
Sub ListFiles() iRow = 11 Call ListMyFiles(Range("C7"), Range("C8")) End Sub ' Sub ListMyFiles(mySourcePath, IncludeSubfolders) Set MyObject = New Scripting.FileSystemObject Set mySource = MyObject.GetFolder(mySourcePath) On Error Resume Next For Each myFile In mySource.Files If Right(myFile.Name, 3) = "mp3" Then iCol = 2 Cells(iRow, iCol).Value = myFile.path iCol = iCol + 1 Cells(iRow, iCol).Value = myFile.Name iCol = iCol + 1 Cells(iRow, iCol).Value = Right(myFile.Name, 3) iCol = iCol + 1 Cells(iRow, iCol).Value = myFile.Size iCol = iCol + 1 Cells(iRow, iCol).Value = myFile.DateLastModified iRow = iRow + 1 Else End If Next If IncludeSubfolders Then For Each mySubFolder In mySource.SubFolders Call ListMyFiles(mySubFolder.path, True) Next End If End Sub
Pingback: Cambiar nombre de archivos desde Excel con macros « EXCELeINFO – Excel vba e información
Pingback: Cambiar nombre de archivos desde Excel con macros « MVPs de LATAM
Pingback: EXCELeINFO add in 2.3.6 Listar archivos de carpetas de PC en Excel « MVPs de LATAM
Excelente herramienta! me ha ayudado bastante.
Me gustaría saber si fuera posible hacer que te saque mas información del archivo, como por ejemplo alguno de los campos de “detalles” del archivo, como por ejemplo el campo “duración” o “ancho de fotograma” en el caso de un vídeo.
Gracias de antemano!
El ejemplo con código vba es este http://www.exceleinfo.com/excel/exceleinfo-add-in-2-3-6-listar-archivos-de-carpetas-de-pc-en-excel/
Y para más detalles de los archivos, revisar este hilo http://www.vbaexpress.com/forum/archive/index.php/t-42482.html
No funciona el link de descarga
Que tal David. Prueba desde aquí addin.exceleinfo.com
gracias
pero tambien lista los archivos inherentes al sistema como thumbs.db y fotos de las portadas de los albumes del artista al que pertenece la cancion.
hace un tiempo escuché de un código que evitaba esto
ojala puedas ayudarme
Hola. El formulario te permite elegir la extensión de los archivos que quieres listar, por ejemplo sólo los .MP3 y el resto no los listará.
sergio, es cierto lo que dices, pero si quisiera listar una carpeta que tenga varios tipos de archivos no lo podría hacer, lo que pasa es que estoy haciendo una macro con la apariencia de explorador, me explico: le doy una sangria a las subcarpetas que tenga el archivo para que no parezca plano, lo he logrado, pero tengo este problema de que lista los archivos del sistema como thumbs.db, y fotos miniatura de archivos de audio y video.
sergio, se que tienes mas experiencia en esto y de seguro conoces un código que logre solucionar este problema.
una vez termine la macro te la enviaré para que la revises y la mejores.
amigo, como puedo hacer para que no se listen los archivos de base de datos del sistema, me explico:
tengo
una carpeta con canciones (mp3, la macro las lista pero tambien lista
los archivos inherentes al sistema como thumbs.db y fotos de las
portadas de los albumes del artista al que pertenece la cancion.
hace un tiempo escuché de un código que evitaba esto
ojala puedas ayudarme