Dim d As Date = Date.NowDim s As String = Format(d,"yyMMddHHmmss")FileSys.CopyFile(projectpath & "*******.mdb","********" & s & ".mdb",True)MessageBox.Show("数据备份完成!")
你可以参考一下。