Para David Amador
Publicado por Willy (264 intervenciones) el 16/04/2005 04:40:44
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
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
Valora esta pregunta
0