llRetry = 0 lcFile = MyGetFileRoutine() DO WHILE llRetry < 3 && We don't want to loop endlessly here :-) TRY some code USE (lcFile) * more code llRetry = 700 CATCH WHEN 3 && Can not open the file lcFile = MyGetAlternateFileRoutine() llRetry = llRetry + 1 CATCH *** do the normal CATCH programming llRetry = 700 ENDTRY ENDDO>Borislav,
>>llRetry = .t. >>DO WHILE llRetry >> llRetry = .f. >> TRY >> some code >> lcFile = MyGetFileRoutine() >> USE (lcFile) >>* more code >> CATCH WHEN 3 && Can not open the file >> lcFile = MyGetAlternateFileRoutine() >> llRetry = .t. >> CATCH >> *** do the normal CATCH programming >> ENDTRY >>ENDDO >>