Dim odlg As new OpenFileDialog
odlg.Filter = "恢复|*.aa"
If odlg.ShowDialog = DialogResult.OK Then
FileSys.CopyFile(odlg.FileName, ProjectPath & "\data\kcgl.mdb", True)
msgbox("恢复完成!!")
End If
一恢复数据,数据库文件就变成只读,老师有啥办法?
CopyFile不会导致文件变成只读,除非复制前就是只读的。
如果是复制后覆盖了当前正在使用的数据库,需要重启项目