>ErrCode = 0 >ON ERROR ERRCODE = 1 >OPEN DATA <your dbc name here> EXCLUSIVE >if ERRCODE=1 > =MessageBox("File access is denied.") >else > close data > do backup.prg >endif >>
Try OPEN DATA <your dbc name here> EXCLUSIVE close data do backup.prg Catch =MessageBox("File access is denied.") Endtry