备份命令
Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "备份文件|*.dat" '设置筛选器
dlg.Title="请选择保存路径及保存文件名!"
dlg.InitialDirectory = ProjectPath & "databak\"
dlg.FileName = Format(Date.Today,"yyyy-MM-dd")
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
FileSys.CopyFile(ProjectPath & "data\data.mdb",dlg.FileName, True)
MessageBox.Show("备份成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
运行错误
.NET Framework 版本:2.0.50727.8009
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,导航,Button06,Click
详细错误信息:
未能找到文件“C:\Users\Jason\Documents\Foxtable项目\知音琴行管理系统修订版\data\data.mdb”。