11 mayo, 2021

MOSTRAR PROPIEDADES DE ARCHIVOS SELECCIONADOS

Hola a todos!.

Espero que estéis bien!, hoy os voy a dejar una macro que creé para responder a una consulta.

Se trata de mostrar las propiedades que tiene uno o varios archivos en una hoja, es decir, listarlos y mostrar los datos. Esto ya lo realicé en una ocasión con este post: LISTAR LAS PROPIEDADES DE TODOS LOS ARCHIVOS DE UNA CARPETA Y SUBCARPETAS

Pero a diferencia del post anterior, lo que necesita el lector es que pueda seleccionar los archivos y no la carpeta con todo su contenido. Esto es algo bastante razonable, así que le mostré una posible solución.

Imaginad que queremos listar estos archivos, pero no todo el contenido de la carpeta, solo los archivos de Excel:

MOSTRAR PROPIEDADES DE ARCHIVOS SELECCIONADOS

Pues con este código lo vamos a lograr:

Sub LISTAR_ARCHIVOS()
'Definimos variables
Dim i As Long, j As Long, FSO As Object
Dim nArchivo As String, dir_Archivo As Variant
'Creamos ventana de diálogo para seleccionar los archivos que queremos listar
dir_Archivo = Application.GetOpenFilename(Title:="SELECCIONA ARCHIVOS", MultiSelect:=True)
'Si no seleccionamos archivos, salimos del proceso
If Not IsArray(dir_Archivo) Then
Exit Sub
End If
With ActiveSheet
'Iniciamos un for con para identificar los archivos seleccionados
'Creamos FileSystemObject para obtener propiedades de cada archivo seleccionado
Set FSO = CreateObject("Scripting.FileSystemObject")
For j = LBound(dir_Archivo) To UBound(dir_Archivo)
i = Application.CountA(Range("A:A")) + 1
nArchivo = dir_Archivo(j)
'pasamos el link de cada archivo seleccionado a la hoja
.Cells(i, 1).Select
.Hyperlinks.Add Anchor:=Selection, Address:=nArchivo, TextToDisplay:=nArchivo
'Pasamos propiedades de cada archivo a la hoja
.Cells(i, 2) = FSO.GetFile(nArchivo).DateCreated
.Cells(i, 3) = FSO.GetFile(nArchivo).DateLastAccessed
.Cells(i, 4) = FSO.GetFile(nArchivo).DateLastModified
.Cells(i, 5) = FSO.GetFile(nArchivo).Type
.Cells(i, 6) = FSO.GetFile(nArchivo).Size
Next j
End With
End Sub

Después de seleccionar los archivos, el resultado es el siguiente:

MOSTRAR PROPIEDADES DE ARCHIVOS SELECCIONADOS_1

Como podéis observar, tenemos los archivos seleccionados, con su hipervínculo al lugar del equipo en el que los tenemos y algunas de sus propiedades, tamaño, fecha creación, modificación, etc.

Y eso es todo, espero que os resulte interesante y lo podáis utilizar en vuestros proyectos.

Descarga el archivo de ejemplo pulsando en: MOSTRAR PROPIEDADES DE ARCHIVOS SELECCIONADOS

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.

Donate Button with Credit Cards

¡¡Muchas gracias!!

Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies

Comparte este post

3 comentario en “MOSTRAR PROPIEDADES DE ARCHIVOS SELECCIONADOS

  1. Buen día Me gustaría sacar adelante un proyecto de una bases de datos pero no se bien el manejo de excel y me gustaría saber si también colaboras en esas parte y que me dieras el valor de la enseñanza y sacar adelante el proyecto y como seria a forma de pago y la explicación

    Quedo atento ________________________________

    1. Hola Carlos:

      Comprendo tu inquietud, pero el fin de esta web es el orientar y ayudar mediante ejemplos, no realizo proyecto y mucho menos cobro por ello. Tienes a tu disposición muchas macros para que puedas comenzar tu trabajo. Si tienes dudas, puedes realizar consultas. Saludos

Si te ha gustado o tienes alguna duda, puedes dejar aquí tu comentario.

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies