Hola Mario,
Existe un ejemplo que viene con VFP, esta basado en bindings a eventos del
Sistema Operativo por lo que no requiere que interrumpas la ejecución de tu
código solo para chequear si algo cambió, sino que recibir una notificacion
cuando ocurre un cambio.
Yo lo use en algún momento, te mando un ejemplo mas abajo, aunque podes verlo en
Correr samples de samples\solution\
New in Visual Foxpro 9
Binding to Windows Message Events
File/Folder Shell events
Saludos,
Juan Calcagno
*** EJEMPLO FileSystemWatcher
SET CLASSLIB TO [c:\program files (x86)\microsoft visual foxpro
9\samples\solution\europa\wmhandler.vcx] ADDITIVE
SET CLASSLIB TO myClasses ADDITIVE
ofdetect=CREATEOBJECT([filedetect])
ofhandler=CREATEOBJECT([filechangehandler])
ofdetect.ohandler=ofhandler
IF !ofdetect.loadevent()
WAIT WINDOW "Event Handler no iniciado")
ENDIF
* crear o modificar un archivo en el directorio actual o todos
READ EVENTS
DEFINE CLASS filechangehandler AS custom
_eventmessage = .F.
Name = "filechangehandler"
PROCEDURE Init
LPARAMETERS lEventMessage
this._eventmessage=lEventMessage
ENDPROC
PROCEDURE handlewinmsg
PARAMETERS tEventMsg
* do something
MESSAGEBOX(tEventMsg)
ENDPROC
ENDDEFINE
*
*-- EndDefine: filechangehandler
**************************************************
> On May 19, 2015, at 9:07 AM, Mario Andrés Ageno
> <[email protected]> wrote:
>
> Pablo con el Adir me anda perfecto
> gracias
>
>
> From: pablo <mailto:[email protected]>
> Sent: Tuesday, May 19, 2015 9:33 AM
> To: GUFA List Member <mailto:[email protected]>
> Subject: [GUFA] monitorear carpeta
>
> Mario, te cuento como lo hice hace algún tiempo:
> 1. Tenes una carpeta donde te dejan los archivos.
> 2. Con un Adir levantás la Info de los que hay en esa carpeta.
> 3. Procesas los archivos.
> 4. Los moves a una carpeta backups.
> 5. Para programar el monitoreo te sugiero un tarea programada que corra
> cada N min, seg.
>
> Espero que te sirva
>
> Pablo Sigüenza
>
>
> De: [email protected] [mailto:[email protected]] En nombre de Mario Andrés Ageno
> Enviado el: lunes, 18 de mayo de 2015 09:58 p.m.
> Para: GUFA List Member
> Asunto: [GUFA] monitorear carpeta
>
> Hola
>
> con que función puedo monitorear una carpeta xxxxx y leer los archivo de
> texto a medida que valla ingresando para de estar manera procesarlos
>
>
> Gracias
>
> ------
> Mario Andrés Ageno
> Analista de Sistemas
> de Computación
> Italia 2317 - 3040 San Justo (SF)
> Tel.:03498-423066
> Personal: 03498-15680413
> mail: [email protected] <mailto:[email protected]>
> web: www.maasoft.com.ar <http://www.maasoft.com.ar/>
> skype: [email protected] <mailto:[email protected]>
