FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour cGetFile
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
cGetFile
Posted: Mon Sep 30, 2019 04: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
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: cGetFile
Posted: Mon Sep 30, 2019 08:59 AM
Try

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


EMG
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: cGetFile
Posted: Mon Sep 30, 2019 12:15 PM
Un ejemplo para archivos de imagen que utilizo en mis programas

Code (fw): Select all Collapse
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
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: cGetFile
Posted: Mon Sep 30, 2019 05:07 PM
Hola Manuel.

Esto tambien funciona:

Code (fw): Select all Collapse
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
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Re: cGetFile
Posted: Mon Sep 30, 2019 08:38 PM

Gracias Enrico, funciona perfectamente.

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

Saludos

Un saludo



Manuel

Continue the discussion