¿Debe ser obligatoriamente con OLE?
En el foro, se propuso una forma simple de mostrar la ventana del Explorador, para cargar en un listbox, la lista de archivos de la carpeta seleccionada:
1. En tu ventana insertas un listbox y un botón.
2. Luego, el script del botón es:
//Limpiar el listbox
lb_1.reset()
// Colocar un path por defecto
string ls_path = "C:\"
integer li_result
li_result = GetFolder( "Carpetas", ls_path)
//Cargar en el listbox, los archivos con la extensión jpg:
lb_1.DirList(ls_path+'\*.jpg', 1)
//---Fin------