FoxPro/Visual FoxPro - MAs sobre GetDir()

 
Vista:
Imágen de perfil de Willy

MAs sobre GetDir()

Publicado por Willy (264 intervenciones) el 24/08/2004 01:24:30
Hola amigos de la Web.
Tengo un programa que detecta los directorios de un CD, para esto utilizo GetDir(), cuando lee un CD realiza todo como realmente espero, pero se me ha presentado un problema, las carpetas del CD que tienen la propiedad de Oculto no se visualiza, en Windows active "ver todos los archivos ocultos", y con el explorador de Windows si se pero con el GetDir() de VFox no se ve, como puedo hacer para el GetDir() muestre las carpetas ocultas?
Gracias por la ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:MAs sobre GetDir()

Publicado por Plinio (7841 intervenciones) el 24/08/2004 04:59:50
Que version de VFP usas?
Si es la 8 y creo que en la 7 también si usas tres parametros o mas te los presenta:
ejemplo:

x=GETDIR('','directorio','nada')
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Willy

RE:Mas sobre GetDir()

Publicado por Willy (264 intervenciones) el 24/08/2004 05:45:34
Hola Plinio
Utilizo VFP 6.0, espero que exista alguna solución.
Gracias por todo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mas sobre GetDir()

Publicado por Plinio (7841 intervenciones) el 24/08/2004 19:01:02
No te asuste con este codigo, es con el Api de Windows, el valor que necesitas es el que muestra el Wait Windows

pShellMalloc = ""
DECLARE INTEGER SHGetMalloc IN SHELL32.DLL STRING @pShellMalloc

*-- SHBrowseForFolder returns a PIDL. Memory for the PIDL is
*-- allocated by the shell. This memory will need to be
*-- freed, so we need to get a pointer to the shell malloc.
NOERROR = 0
r = SHGetMalloc(@pShellMalloc)

IF r = NOERROR

*-- Create the BROWSEINFO structure. I'm using all default
*-- values, so just make it the correct size
sBrowseInfo = REPL(CHR(0),32)

DECLARE INTEGER SHBrowseForFolder IN SHELL32.DLL STRING @Browseinfo

*-- If the user selects a folder the return value
*-- will be a pointer to a folder, otherwise
*-- it will be NULL.
nPointerToFolder = SHBrowseForFolder(@sBrowseinfo)

*// Now get values from pointer *//

*-- Make sure buffer is large enough
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)
WAIT WINDOW ALLTRIM(sBuffer)
ENDIF

*-- Free the PIDL. I don't know if this is
*-- the correct way to handles this.
RELEASE pShellMalloc

ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Willy

RE:Mas sobre GetDir()

Publicado por Willy (264 intervenciones) el 25/08/2004 15:03:19
Hola Plinio.
Muchas gracias por la ayuda es realmente lo que buscaba desde hace tiempo, pero podría preguntarte algo más, es posible ubicar esta ventana en un lugar deseado?, no solo en la posición que sale por defecto, si es posible te agadecería tu colaboración.
Desde ya muchas gracias.
Willy
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

cambio icono GetDir()

Publicado por luisr (8 intervenciones) el 29/08/2004 04:06:31
alguien sabe como cambiar el icono del formulario de getdir().
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar