>Hi All,
>
>I am encountering a problem while copying the file. I want to track error. Let me explain it to you in breif.
>
>I want to copy file from "C:\Package\Temp\*.dbf" to "H:\Package\Data" folder. While copying there might be a possibility of network connection loosing or the folder is not present or something like this. I want to track when the copying is now possible and want to display a messagebox and ask the user to retry or cancel. If the user says retry then the copying should happen again.
>
>To test this I have written a small prg as given below
>
>

>lnI = 1
>ON ERROR DO Onerror WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
>Do while .T.
>    Do Case
>        Case Mod(lnI,2) = 1
>             Copy File "C:\Package\Temp\Munir.DBF" To "H:\Package\Data\Munir.DBF"
>        Case Mod(lnI,2) = 0
>             Copy File "C:\Package\Temp\Munir.DBF" To "H:\Package\Dt\Munir.DBF"
>                   &&Error since dt folder is not prsent
>    Endcase
>    lnI = lnI + 1
>Enddo
>

>
>*--------------------
>OnError.PRG
>*--------------------
>

>PARAMETER merror, mess, mess1, mprog, mlineno
>lnAnswer = Messagebox(merror,21,"Error)
>If lnAnswer = 4 && RETRY
>    Retry
>Endif
>

>
>Now when the retry command is fired the control is passed to lnI = lnI + 1 command line but I want to continue copying the file in case Mod(lnI,2) = 0
>
>Can anyone help.
>
>Regards
>
>Munir Solkar

Munir,

Haven't tested it, but try this:

LOCAL llCopied
ON ERROR DO Onerror WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
DO WHILE NOT llCopied
   Copy File "C:\Package\Temp\Munir.DBF" To "H:\Package\Data\Munir.DBF"
   llCopied = IIF(FILE("H:\Package\Data\Munir.DBF"),.T.,.F.)
ENDDO

*--------------------
*OnError.PRG
*--------------------

PARAMETER merror, mess, mess1, mprog, mlineno
RETURN IIF(Messagebox(merror,21,"Error) = 4,.T.,.F.)

Not sure whether or not returning .F. from the OnError.prg will get you out of the DO WHILE loop.

HTHs,