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