我想把一个备分的数据库恢复当前路径下,出现错误,请帮忙?
if not fileexists(sle_1.text) then //已经在d:\backup\sj.db
messagebox('提示','数据库文件不存在!')
return 1
end if
choose case filecopy(sle_1.text,curdir+'\sj.db',true)
case 1
messagebox('提示','数据恢复成功!')
case -2
messagebox('警告','数据恢复失败,不能不能写入目标文件,可能是目标文件正在使用!',stopsign!)
case -1
messagebox('警告','数据恢复失败,不能读取源文件!',stopsign!)
end choose
代码老提示不能读取源文件,快帮忙了!!!