EXCELeINFO add in 2.3.6 Listar archivos de carpetas de PC en Excel

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ú

image

Formulario

image

Resultado

image

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

:: Descargar EXCELeINFO add-in 2.3.6

You may also like...

12 Responses

  1. Wiltor says:

    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!

  2. David Hernandez says:

    No funciona el link de descarga

  3. hausser says:

    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á.

      • hausser says:

        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.

  4. hausser says:

    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

  1. October 3, 2012

    […] vamos a hacer uno de la última herramienta añadida al EXCELeINFO addin, que es la de Listar archivos, esto para tener la ruta completa y el nombre de los archivos a cambiar. Armamos el siguiente […]

  2. October 10, 2012

    […] vamos a hacer uno de la última herramienta añadida al EXCELeINFO addin, que es la de Listar archivos, esto para tener la ruta completa y el nombre de los archivos a cambiar. Armamos el siguiente […]

  3. October 29, 2012

    […] Ver más aquí.Gracias. […]

Leave a Reply

Your email address will not be published. Required fields are marked *

%d bloggers like this: