Hi!

I doubt it will work, but this is the most simple way I know, so you can give it a try:


SET TALK ON
SET ODOMETER TO 100 && update status each 100 records
SET ESCAPE ON && to allow interrupt
do myprg.prg && import command here
SET ESCAPE OFF
KEYBOARD '' CLEAR
SET TALK OFF


Status displayed for 'copy to' command, when help does not lie. I don't know if you will be able to interrupt, but in my test ran over 100000 of data I was able to interrupt copying process by ESC key at different record numbers, usually such commands checks for ESC key each 2-3 seconds, in addition, I was able to interrupt by several ESC key press, so I recommend you use 'KEYBOARD' command just after copying. In addition, you can try to use 'DEFINE WINDOW' or run modeless form to define status window and show status in that window using 'SET TALK WINDOW ...'. I doubt you will be able to use Cancel button on that form, but you may give a try using combination of 'ON KEY LABEL', '_VFP.AutoYield' and other commands.

HTH.


>Hi everyone,
>
>Just curios, is it possible to add thermometer during Append From (txtFile) type delimited? I just appended 5mln. records text file and it was not user friendly to see just wait window (fortunately, nobody except me has seen this :))
>
>Thanks in advance.