FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Valor por defecto en cGetFile
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Valor por defecto en cGetFile
Posted: Fri Oct 28, 2011 12:05 PM
驴Como puedo hacer para tener especificado el tipo de fichero Y un valor por defecto para la funcion cGetFile()?

Ahora lo uso as铆:

Code (fw): Select all Collapse
   ? cFichero := cGetFile( 'Listado.txt', 'Fichero a generar', 1 , cGetSpecialFolder(0), .f., .t. ;
                       , nOr( OFN_NOCHANGEDIR , OFN_EXPLORER , OFN_LONGNAMES ) ;
                       , ;
                       )


Pero eso hace que el filtro para los nombres de fichero sea 'Listado.txt', y yo quisiera que fuera 'Ficheros de texto|*.txt' ...

驴Se puede hacer eso?
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Valor por defecto en cGetFile
Posted: Fri Oct 28, 2011 01:28 PM

Intenta asi

cFile := cGetFile( "LISTADO (.txt)| .txt|" ,"Por Favor Seleccione un Archivo de texto" )

Saludos,

Adhemar

Saludos,



Adhemar C.
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Re: Valor por defecto en cGetFile
Posted: Wed Nov 02, 2011 08:49 AM
Hola Adhemar,

perdona mi tardanza en responder. Es que las pruebas las ten铆a que hacer en la oficina y no he vuelto hasta hoy.
He probado como tu dices, poniendo tu llamada de funci贸n no me pone el nombre por defecto, sino que me pone LISTADO como nombre del tipo de archivo:



La idea es que el nombre del fichero que genero me aparezca en la entrada del nombre.

Gracias por la respuesta, si se te ocurre algo, ya sabes :-)
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 211
Joined: Wed Jul 16, 2008 12:59 PM
Re: Valor por defecto en cGetFile
Posted: Wed Nov 02, 2011 12:57 PM
Hola Carlos:

Yo tengo un c贸digo as铆, tal vez te sirva

Code (fw): Select all Collapse
if EMPTY(cZipFile := cGetFile("Archivo comprimido|*.zip","Por favor especifique un archivo",1,,.T.,,,"Ventas"+DTOC(DATE())) )
   msgstop("Proceso cancelado")
聽 聽RETURN .F.
endif


Atentamente,

Rolando.
Saludos desde Cochabamba, Bolivia
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Re: Valor por defecto en cGetFile
Posted: Thu Nov 03, 2011 08:09 AM

Funcion贸 a la perfecci贸n. Result贸 ser el octavo par谩metro.
Gracias!

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"

Continue the discussion