obtener lista de directorios

[Jorge]

Hola a todos :

Estoy tratando de obtener desde uan ubicacion determinada la lista de todos los directorios que hay en ese nivel , para ir borrando mediante el comando RD ( nombre_directorio ) los directorios bajo ciertas condiciones.

El problema lo estoy teniendo al usar la funcion ADIR.

Intente con:

 lncant = ADir( arraydir, '*.*', "D" ) 

obtener una lista de los directorios soalmente y me trae todo ( archivos y directorios )

Busque en internet  informacion completa de como se utiliza la funcion adir y encontre algunos ejemplos ( la ayuda de fox no me anda o no la tengo instalada ) .

queria saber si hay alguna manera mas practica de poder hacer esto , y si alguno sabe donde puedo conseguir la ayuda completa de la funcion adir  gracias 

Libre de virus. www.avg.com

[Zarlu]

Buenos días ciclon2506!

Espero esto te sirva:

CLEAR
lcDir=GETDIR()+"*.*"
lnElemen=ADIR(laArray,lcDir,"D")
? "Carpetas del directorio: "
FOR a=1 TO lnElemen
        IF "D" $ laArray(a,5)
                  ? laArray(a,1)
        EndIf
ENDFOR
RETURN

https://comunidadvfp.blogspot.com/2002/02/uso-de-la-funcion-adir.html

https://vfpavanzado.wordpress.com/2021/02/19/un-cursor-con-nombres-de-archivos-y-carpetas/

Suerte

zarlu

Chetumal, Quintana Roo, México

[HernanCano]

La ayuda más completa de la función ADIR() esta en la ayuda de VFP9.

Observa que dice que el atributo "D" sirve para "incluir" subdirectorios, no para listarlos únicamente a ellos.

Puedes hacer lo que te dice Zarlu....

[Jorge]

muchas gracias por la ayuda !!1

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/ff1e721d-6e79-4001-b28a-4e1fb4e37137n%40googlegroups.com.

[Luis Maria Guayan]

Mira si ésta función recursiva te sirve:

-- Retornar el nombre de todos los subdirectorios de un directorio --

https://comunidadvfp.blogspot.com/2015/05/retornar-el-nombre-de-todos-los.html

Luis María Guayán
Tucumán, Argentina
_______________________________

Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com