Gracias de antemano por la respuesta.

Vengo programando una aplicación en power consistente en recuperar los directorios y subdirectorios de una unidad cualquiera, utilizando el objeto de sistema OLEObject y Scripting.FileSystemObject.

Una instancia de este objeto es creado y conectado a la clase Scripting y Objeto FileSystemObject (Windows Scripting).

De la conexión y apartir de del directorio raiz obtengo, una lista de directorios (subdirectorio -colección de directorios-)

El problema es, cómo navegar através de esta colección de directorios (colección de objetos) en power builder.

Aquí les envío un extracto del código.

//

long ll_inicio = 0, ll_total = 0
OleObject loleob_carpetapadre, loleob_listadecarpetas, loleob_subcarpeta

loleob_carpetapadre = CREATE OleObject
loleob_listadecarpetas = CREATE OleObject
loleob_subcarpeta = CREATE OleObject



loleob_carpetapadre = ioleob_sistemadearchivo.GetFolder(as_raiz) //directorio padre
loleob_listadecarpetas = loleob_carpetapadre.SubFolders //colección directorios del padre


ll_total = loleob_listadecarpetas.Count
ll_total = loleob_carpetapadre.SubFolders.Count



//cómo navegar ????????????????????????????????

FOR ll_inicio = 0 TO loleob_carpetapadre.SubFolders.Count - 1
loleob_subcarpeta = loleob_listadecarpetas.Item(inicio ) //no funciona
NEXT

//

En VB existe la instrucción

For each objeto in coleccionobjetos

...........

Next



Cualquier respuesta escriban al correo jaczperu en el latinmail.com

Agradezco mucho sus respuestas.