Actividad pública reciente
Voto positivo a la respuesta
Listar carpetas vacías con macros
Pon la siguiente macro en un archivo Sub carpetas() 'por.dam Dim SubDir As New Collection pPath = "C:\" On Error Resume Next Set navegador = CreateObject("shell.application") carpeta = navegador.browseforfolder(0, "SELECCIONE UNA CARPETA", 0,...