cGetFile

cGetFile

Postby Manuel Valdenebro » Mon Sep 30, 2019 4:45 am

Hola,
Necesito que en un dialogo de Windows, me muestre un fichero de un directorio y no todos los fichero. Estoy intentándolo de la siguiente manera:

cGetFile( cNomFich, "Elija el fichero.",1,cDir,.F.,.T.)

donde cNomFich es el nombre del fichero completo (incluida extensión) y cDir es el path. En el diálogo me muestra todos los ficheros con extensión ".doc" que es la extensión de ese fichero, pero tengo que buscar manualmente ese fichero. No se posiciona el cursor en el nombre de fichero que busco.

Si lo hago asi:

cGetFile("*.doc", "Elija el fichero.",1,cDir,.F.,.T.,,cNomFich) obtengo el mismo resultado.

Un saludo y gracias
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Re: cGetFile

Postby Enrico Maria Giordano » Mon Sep 30, 2019 8:59 am

Try

Code: Select all  Expand view
cGetFile( cNomFich + "|" + cNomFich, "Elija el fichero.",1,cDir,.F.,.T.)


EMG
User avatar
Enrico Maria Giordano
 
Posts: 8710
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: cGetFile

Postby armando.lagunas » Mon Sep 30, 2019 12:15 pm

Un ejemplo para archivos de imagen que utilizo en mis programas

Code: Select all  Expand view
gcFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" +         ;
                             "PCX   (*.pcx)| *.pcx|"  +         ;
                             "JPEG  (*.jpg)| *.jpg|"  +         ;
                             "TARGA (*.tga)| *.tga|"  +         ;
                             "RLE   (*.rle)| *.rle|"  +         ;
                             "Todos los Archivos (*.*)| *.*"    ;
                            ,"Elegir una archivo de imagen Valido...", 1 )


Saludos
SkyPe: armando.lagunas@hotmail.com
Mail: armando.lagunas@gmail.com
User avatar
armando.lagunas
 
Posts: 346
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile

Re: cGetFile

Postby jvtecheto » Mon Sep 30, 2019 5:07 pm

Hola Manuel.

Esto tambien funciona:

Code: Select all  Expand view

cGetFile("ficheros include(*.ch)|*.ch|","Elija el fichero include.", ,"c:\fwh\include",.F., , ,"fivewin.ch")
 


Saludos.

Jose.
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
User avatar
jvtecheto
 
Posts: 592
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

Re: cGetFile

Postby Manuel Valdenebro » Mon Sep 30, 2019 8:38 pm

Gracias Enrico, funciona perfectamente.

Gracias tambien a los otros compañeros por su ayuda.

Saludos
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 57 guests