Jump to content

Explorador de archivos con ListView y miniaturas de los iconos estilo explorer de windows


AlexanderS

Recommended Posts

Hola pues la verdad nunca había tocado un "ListView" y me dio curiosidad y pues e terminado creando como dice el titulo un Explorador de archivos con 2 ListView, en si no es nada del otro mundo el 1° ListView es para ver los archivos con algunos iconos dependiendo de la extención y el 2° es para agregar carpetas a "Favoritos" para acceder a ellas rápidamente. Si das doble Click sobre el archivo este se abre, o y ademas tiene un buscador.

Se deriva de este otro aporte que ya había compartido https://www.ayudaexcel.com/foro/ideas-aportes-64/organizador-archivos-por-carpetas-categorias-31876/

Como dije este archivo lo hice para experimentar con este control que por cierto me a gustado bastante y quiero compartirlo por si le es de utilidad a alguien.

** Actualizado para mostrar también las subcarpetas 03/06/15

Salu2

Explorador con listview.rar

Link to post
Share on other sites
  • 11 months later...
  • 2 weeks later...
  • 6 months later...

Esta de maravilla segun lo veo pero no me funciona, no abre el userform que pena ...sera por que tengo el excel 2010??? en fin , veo los codigos pero no puedo y el userform en diseño pero no en accion

Gracias de todos modos por compartir

Link to post
Share on other sites
  • 2 months later...
  • 5 weeks later...

Es un excelente aporte, segun puedo ver el userform, pero en la funcionalidad tambien me paso lo que a los demás.

hola

Hola Emiro Erazo, para que te funcione en 32bits según lo dices, que Referencias has activado? Pues no he logrado hacer funcionar en 32bits 2010. Me podrías pasar el dato? o realizaste alguna otra modificación?

Al hacer click en el botón Ver Explorador me sale lo siguiente:

Cual es el objeto que se requiere?

Te agradezco mucho

post-202070-145877014557_thumb.png

Link to post
Share on other sites

Prueba con esto: aumentar el Service Pack de tu PC:

Pasar de Service Pack 1 a 2 o a 3:

Inicio/ Ejecutar/ Escribimos: Regedit /HKEY_LOCAl_MACHINE/SYSTEM/ CurrentControlSet/services/Buscamos la Carpeta Windows /A la derecha buscamos: CSDVersion/ En Información del valor: si colocamos 300/ Aceptar → Queda el Sistema con Service Pack 3, si colocamos 200 → queda el sistema con Service Pack 2

Reiniciar PC

clip_image002.jpg

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • He adaptado la macro a que la tabla empiece en A1. Solo se tiene en cuenta el click derecho en las columnas A y B si están en blanco. La fila 1 no se tiene en cuenta. En cualquier momento puedes informar el numero de cheque de forma manual.     Autonumeración de cheques-Antoni OK.xlsm
    • Ahora sí. Mira si te vale esto o te da ideas para lo que necesitas. La validación se hace en C4 si no están rellenas A4 y B4 Saludos. Validacion.xlsx
    • Yo lo que quiero es que los campos de una matriz que tengo en una hoja que cumplen una condición me los copie en otra hoja en una única columna, pero no me funciona. No se exactamente lo que hago mal  
    • Bo día Antoni; Me has simplificado mucho el código.👍 Con el código que a continuación insertaré consigo exportar los datos del listBox tanto si selecciono un item como varios u alternos. Sólo me queda una duda por resolver y es: -Como hago para poder exportar todos los datos cuando no selecciono ningún item. If Me.ListBox1.Selected(x) = True Then Adjunto código: Private Sub btn_Txt_Click(): On Error Resume Next Dim ruta As String, i As Integer, existe As Boolean Dim Sep As String, x As Integer, z As Integer, Cuenta As Integer Dim FechaCancel If Dir(ActiveWorkbook.Path & "\tb_Cobros.txt") <> "" Then existe = True If existe = True Then z = MsgBox("Ya existe el archivo de texto.¿Deseas eliminardo?", vbYesNo) If z = vbYes Then Kill ActiveWorkbook.Path & "\tb_Cobros.txt" existe = False Else Open ActiveWorkbook.Path & "\tb_Cobros.txt" For Append As #1 End If End If If existe = False Then Open ActiveWorkbook.Path & "\tb_Cobros.txt" For Output As #1 MsgBox "El archivo txt fue creado" End If Cuenta = frm_Cobros.ListBox1.ListCount FechaCancel = Date Sep = ";" For x = 0 To Cuenta - 1 If Me.ListBox1.Selected(x) = True Then MsgBox Me.ListBox1.List(x), vbInformation, "Registro" TextBox0 = ListBox1.List(x, 0) TextBox50 = ListBox1.List(x, 1) TextBox51 = ListBox1.List(x, 2) TextBox4 = Format(ListBox1.List(x, 3), "dd/mm/yyyy") TextBox5 = ListBox1.List(x, 4) TextBox10 = ListBox1.List(x, 5) TextBox6 = ListBox1.List(x, 6) TextBox11 = ListBox1.List(x, 7) TextBox7 = ListBox1.List(x, 8) TextBox8 = ListBox1.List(x, 9) TextBox12 = ListBox1.List(x, 10) Print #1, "Fecha:" & FechaCancel & " " & TextBox0 & Sep & TextBox50 & Sep & TextBox51 & Sep & TextBox4 & Sep & TextBox5 & Sep & TextBox10 & Sep & TextBox6 & Sep & TextBox11 & Sep & TextBox7 & Sep & TextBox8 & Sep & TextBox12 End If Next x Print #1, "-" Close #1 End Sub Saúdos e moito coidado, la cosa se vuelve a poner seria. Un abrazo y muchas gracias como siempre.
    • Buenas tardes Sr. @Antoni Aquí alzo el archivo nuevamente con algun error que me aparece cuando haco click derecho sobre la columna F pero esta celda de la columna F ya tiene dato generado. Es por prever nada más algun click accidental. Por lo demás todo funciona perfectamente. Muchas gracias Rubén Autonumeración de cheques-Antoni Errores.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy