cGetFile Problema en Windows Vista

[Ruben D. Fernandez]

Amigos:

Tengo problemas en cGetFile con Windows Vista.

Vea mi post anterior npor favor.

Saludos

Ruben Fernandez

[JmGarcia]

Tengo problemas en cGetFile con Windows Vista.

Y si usas cGetFile32

Sintaxis:
cGetFile32( <cFileMask>, <cTitle>, [<nDefaultMask>], [<cInitialDirectory>], [lSave], [nFlags], [cInitialFile] ) --> cFileName

[Ruben D. Fernandez]

JM:

Segun tengo entendido cGetFile32 es para 16 bits,
de todas forma ya lo probe y tampoco funciona.

Muchas gracias.

Ruben Fernandez

[Patricio Avalos Aguirre]

Este codigo me funciona muy bien en XP

Code: Select all

cArch := cGetFile32("JPEG  | *.jpg |" , "Seleccione una imagen",1,,,.T. )

habria que ejecutarlo en Vista

[JmGarcia]

Segun tengo entendido cGetFile32 es para 16 bits...

Anda... pues ahora me entero.
Como vi el 32 pense que era de 32bits...

Yo uso esto (pero en XP):

Code: Select all

cFichXLS:=cGetFile32("Excel (*.xls)|*.xls|Todos (*.*)|*.*",;
          "Escoja fichero Excel (XLS)",1,;           // Número del filtro 1=*.xls, 2=*.*, etc...
          alltrim(cDirectorioLOCAL),.T.,2,cFichXLS) // El ".T.,2" es para si existe pedir confirmación

[Ruben D. Fernandez]

Amigos:

En xp funciona cualquiera de las 2 formas, pero, en Windows Vista
no logro hacerlo andar, la aplicación se cierra.

Muchas gracias y saludos
(seguire buscando y preguntando)

Ruben Fernandez

[Patricio Avalos Aguirre]

Code: Select all

cArch := cGetFile32("JPEG  | *.jpg |" , "Seleccione una imagen",1,,,.T. )

Este código funciona bien en Windows VISTA HOME PREMIUN

[Mauricio]

Ruben,

Lograste hacer funcionar cGetFile32 en Vista?

Ahora se me esta presentando ese error, sobre todo cuando la variable esta vacia.

cVariable := cGetFile32( .......)

Se cierra la aplicacion sin decir .. agua va


Saludos,
Mauricio

[Antonio Linares]

cGetFile32() es para 16 bits

Para 32 bits usad cGetFile()

[fleal]

Yo siempre lo he usado asi y funciona en Windows vista y XP.
aPub[5] := cFilePath( GetModuleFileName( GetInstance() ) ) // Path donde está instalado el Exe

local cFile := ""

cFile := cGetFile( "*.xls", "Selecciona un archivo", 1, aPub[5] )

if empty( cFile )
return FALSE
endif

cSay := cFile