Genexus

Utilizamos assim, chamando um programa externo :

Na procedure, crie um array que conterá o nome dos arquivos :
&wdiretorio = 'c:\varmovto\*.*' // pode colocar o arquivo que quiser,
por exemplo *.txt, *.doc, *.dbf, etc...
&warqs() = ' ' // Character 42 com rows = 500
call('fxbraret', &warqs() , &wdiretorio )

Defina o programa externo ( fxbraret.prg) assim :

*----------------------------------------------------------------------
* fxbraret.prg - Busca lista de arquivos a ser integrada relativo
* retorno bancario
*
* Variaveis: - warquis - Vetor com a lista dos arquivos
*

Parameters warquis, wdir

dimension temdir(1)
temdir(1) = ''

=adir(temdir,wdir)

If !EMPTY(temdir(1))
for f = 1 to ALEN(temdir,1)
warquis(f) = ALLTRIM(temdir[f,1])
next
endif

RETURN
*----------------------------------------------------------------------

No retorno da chamada, leia o conteúdo do array com Do while...Enddo

Boa sorte.

Cordialmente

Fábio Martins Barbosa
TI - Desenvolvimento de Sistemas
T cel. (65) 9206-2803

-----Mensagem original-----
De: Ramiro Martinez [mailto:rmartinez@insis.com.uy]
Enviada em: quinta-feira, 30 de dezembro de 2010 09:29
Para: vfp-l@gxtech.com.uy
Assunto: [vfp-l] Obtener el contenido de un directorio

Buenos días foro.

Estoy trabajando con GX7 y VFP6.

Necesito poder recuperar el contenido de un directorio y volcarlo en un
archivo de texto para luego poder abrir y trabajar con los archivos.

Intenté invocar la instrucción DIR ruta TO FILE archivo, pero invocando
desde GX no me funciona.
Cree un prg externo con este contenido, siendo ruta y archivo variables, y
me genera el archivo, pero me despliega la salida sobre el form activo que
tengo en mi aplicación, además que me solicita una confirmación al final del
mismo para poder finalizar la instrucción del prg.

Desde ya agradezco cualquier sugerencia.

Saludos

Ramiro Martínez
Desarrollo

-----------------------------------------

Para Suscribirse/Desuscribirse:

http://www.gxtechnical.com/cgi-bin/hforum.exe?2,3,30,21

Por consultas owner-vfp-l@gxtech.com.uy

-----------------------------------------
Para Suscribirse/Desuscribirse:
http://www.gxtechnical.com/cgi-bin/hforum.exe?2,3,30,21
Por consultas owner-vfp-l@gxtech.com.uy

--
Has recibido este mensaje porque estás suscrito al grupo "GeneXus" de Grupos de Google.
Para publicar una entrada en este grupo, envía un correo electrónico a genexus@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a genexus+unsubscribe@googlegroups.com
Para tener acceso a más opciones, visita el grupo en http://groups.google.com/group/genexus?hl=es.