topic-30019

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

urgente - Seleccion de archivos multiples
Posted: Tue Jan 20, 2015 12:06 AM

Estimados, requiero con urgencia un selector de archivos multiples, he intentado usar
cGetFileEx, tanto el que viene por defecto con fwh (c5) asi como los expuestos en el foro (falla la compilación con _bcopy )
y no han funcionado, necesito uno que ya hallan probado con exito.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: urgente - Seleccion de archivos multiples
Posted: Tue Jan 20, 2015 12:13 AM

ya esta, hora y media perdida

fwh trae la suya nativa que funciona de lujo:

Code (fw): Select all Collapse

aFiles:=aGetFiles( cMask, cTitle, nDefaultMask, cInitDir )

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: urgente - Seleccion de archivos multiples
Posted: Tue Jan 20, 2015 01:58 AM

carlos vargas wrote:ya esta, hora y media perdida
fwh trae la suya nativa que funciona de lujo:
Code (fw): Select all Collapse
aFiles:=aGetFiles( cMask, cTitle, nDefaultMask, cInitDir )

Carlos, podrias colocar un sample o si hay uno en los samples de FWH decir cual es..? gracias...saludos...

Dios no está muerto...

Gracias a mi Dios ante todo!

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: urgente - Seleccion de archivos multiples
Posted: Tue Jan 20, 2015 04:09 AM

Code (fw): Select all Collapse

PROCEDURE DocuE_Agregar()
   LOCAL aFiles := {}

   aFiles := aGetFiles( "Archivo | *.*", "Seleccione archivo a adjuntar", 1, GetEnv( "USERPROFILE" ) )

   IF HB_IsArray( aFiles ) .and. Len( aFiles ) > 0
      xBrowse( aFiles )
   ENDIF

RETURN

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: urgente - Seleccion de archivos multiples
Posted: Tue Jan 20, 2015 04:16 AM

Muchas gracias Carlos, lo pruebo y te aviso cualquier detalle, saludos... :shock: