>sour = k+f && source location of files defined >dest = l+c && destination location of files defined >* Save the original error handler >lcOldOnError = ON("ERROR") >* Issue ON ERROR with the name of a procedure >ON ERROR DO errhandler with error(), message() >rename (sour) to (dest) >ON ERROR &lcOldOnError > >procedure errhandler > local aErrInfo[1],qt > aerror(aErrInfo) > qt = aErrInfo[1,2] > qt = qt+' ' > messagebox(qt+f,0,'error moving tofile') > continue_on = .f. > release aErrInfo >endproc >>