ERROR AL CARGAR DATOS EN LISTBOX

Question

Hola

Dispongo de un codigo que recorre todas las carpetas de un directorio, hasta aqui todo bien; el problema surge cuando quiero cargar ese listado de nombres en un listbox colocado en un formalrio de Access.

Estoy trabajando con VBA. Anexo el codigo y el error me muestra.

Agradecido por sus respuestas

Private Sub List1_DblClick(Cancel As Integer)

    Set fs_objeto = CreateObject("Scripting.FileSystemObject")
    Set Directorio = fs_objeto.GetFolder(Leer_Ini(MyPath, "PATH", "Ad_Path", ""))
    Set subdirectorios = Directorio.subfolders
    
    For Each Subdirectorio In subdirectorios
        List1.AddItem (Subdirectorio.Name)
    Next
    
    Set fs_objeto = Nothing
    Set Directorio = Nothing
    Set subdirectorios = Nothing

End Sub

Answer 1

Hola, 

pulsa con el botón derecho en el objeto List1, en modo diseño. Allí te aparecerán las propiedades, tienes que buscar la propiedad RowSourceType o si el idioma está en español Tipo de origen de la fila. Allí tienes que seleccionar Lista de valores para poder usar Additem. 

Saludos.