FoxPro/Visual FoxPro - Para David Amador

Hola David.

Hace varios días te pregunté sobre listar archivos ocultos y gracias por tu respuesta.
ADIR(LISTA,'*.*','HD')
Con esta última ayuda logré conseguir la lista de las carpetas desde ahí creo ya podré seguir adelante.

Sobre el problema que tengo: 'No poder listar archivos ocultos en 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

Puedes hacerlo con el API de Window....

Declare integer SetCurrentDirectory in "kernel32";
String lpPathName

=SetCurrentDirectory("c:\carpetaoculta")

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