FoxPro/Visual FoxPro - Lista de archivos y carpetas

Hola Amigos

Pues ya le estube buscando y no supe como hacerlo o siquiera si se puede.......

Necesito obtener el listado de archivos y subcarpetas de una carpeta determinada ejemplo

Obtener la lista de archivos y subforders de c:\archivosgenerales

y que me de

c:\archivosgenerales\file1
c:\archivosgenerales\file2
c:\archivosgenerales\file3
c:\archivosgenerales\folderx\file1
c:\archivosgenerales\folderx\file2
c:\archivosgenerales\imagenes\pic1
c:\archivosgenerales\imagenes\pic2
c:\archivosgenerales\imagenes\pic3

etc

y esa informacion capturarla en una tabla.

Me gustaria saber como hacerlo con VFP o almenos con msdos o windows y luego ver la manera de pasarlo a vfp

Les agradecere mucho la ayuda que me puedan brindar.

Eugenio

http://www.portalfox.com/index.php?name=News&file=article&sid=62&theme=Printer

??????????????????????

esa funcion no es para borrar ??????????

Capaz ya es tarde pero acabo de terminar uno muy parecido, fijate si te sirve este ejemplo (el ejemplo no lo hice yo pero me ayudo)

Procedure ListarDirectorios
*- listar directorios del primer nivel un disco
*- o subdirectorios de una carpeta
Local x, nSon, nListados
nListados = 0
Wait Window Nowait ;
'Listar directorios del primer nivel de un disco o '+;
'subdirectorios de una carpeta'
nSon = Adir(aArchivos, curDir()+"*.*", "D")
If nSon > 0
=Asort(aArchivos,1)
For x=1 To nSon
If !("D"$aArchivos[x,5]) Or ;
aArchivos[x,1] == "." Or aArchivos[x,1] == ".."
Loop
Endif
?"Nombre: ", Lower(aArchivos[x,1])
??" Tamaño: ", aArchivos[x,2]
??" Fecha: ", aArchivos[x,3]
??" Hora: ", aArchivos[x,4]
??" Atributo: ", aArchivos[x,5]
nListados = nListados + 1
Next
Else
*- Esta opcion no deberia ejecutarse nunca ya que siempre hay
*- al menos dos . y .. aunque no haya archivos.
?"No hay Directorios en "+cDir
Endif
If nListados > 0
?nListados, 'directorios del primer nivel listados.'
*- a partir de ahroa si se quiere acceder a la ruta completa
*- de algún directorio no hay mas que sumar: addbs(cDir + '\' +aArchivos[n,1])
Else
?"No hay Directorios en "+cDir
Endif
Release aArchivos
Endproc