FoxPro/Visual FoxPro - Opciones de ADIR

Hola amigos del foro. (VFP 6.0)

Debo listar todos los archivos de una carpeta desde un CD cualquiera, para ello utilizo:
ADIR(Lista,*.*)
FOR K=1 TO ALEN(Lista)
? Lista(k,1)
Hasta ahí todo está bien (puedo ver todos los archivos de una carpeta del CD, pero cuando se presenta un CD con sus archivos ocultos, no puedo realizar el listado, que puedo hacer?, utilicé:
ADIR(Lista,[*.*,’h’])
Que supuestamente permite listar archivos ocultos pero no logro visualizar.
Ayuda por favor para visualizar archivos ocultos.
Otra duda como hago para visualizar todos los archivos del CD de todas las carpetas existentes. ADIR utiliza la opción D= Directorio pero se como utilizarlo.
Gracias por a ayuda.

este es un ejemplod e como recorrer los archivos ocultos de un directorio ...

cDir = "c:\"
nTotF = Adir(aFiles, cDir + '*.*',"H" )

For I = 1 To nTotF
? aFiles[I, 1]
Next I

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

Hola David Amador.
Gracias por tu respuesta, la verdad es que funciona bien cuando encuentra archivos ocultos, el problema es como listar los archivos de ocultos de una carpeta oculta, resulta que tengo en el CD una carpeta Oculta y obviamente no puedo cambiar su atributo.
Epero tu ayuda, gracias.
Algo más es posible listra todos los archivos de todas las carpetas?,
Gracias por la ayuda

Prueba así ...

Set defalt c:\
nTotF = ADir(arrat, '',"DH" )

For I = 1 To nTotF
? aFiles[I, 1]
Next I

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

Hola David Amador.

Gracias por tu respuesta. Con esta última ayuda logré conseguir la lista de las carpetas desde ahí creo ya podré seguir adelante.

Sobre el problema que no puedo resolver: 'No puedo listar archivos ocultos de carpetas ocultas', ya encontre el error y es el siguiiente: Cuando logro guardar en una variable la carpeta por lista (con atributo oculto) Ej. Carpeta='H:\DATOS OCULTOS' debo cambiar de unidad por defecto mediante: SET DEFAU TO (Carpeta), pero como la carpeta está oculta VFP no la reconoce y no cambia a la carpeta deseada.

Para escoger una carpeta utilizo el siguiente código:

sBrowseInfo = REPL(CHR(0),32)
DECLARE INTEGER SHBrowseForFolder IN SHELL32.DLL STRING @Browseinfo
nPointerToFolder = SHBrowseForFolder(@sBrowseinfo)
MAX_PATH = 260
sBuffer = REPL(" ",MAX_PATH) &&// Will hold the path name
DECLARE INTEGER SHGetPathFromIDList IN SHELL32.DLL ;
INTEGER nPointerToFolder,;
STRING @sBuffer

IF nPointerToFolder > 0
= SHGetPathFromIDList(nPointerToFolder,@sBuffer)
SET DEFA TO (sBuffer)

Mi problema ahora es como puedo cambiar de unidad hacia una carpeta oculta.
Espero tu gran ayuda.
Gracias de antemano