Private Sub Command1_Click()
Dim fs As Object
Dim lstrFile As String
On Error GoTo errLab
Set fs = CreateObject("Scripting.FileSystemObject")
Dim fil1 As Object
lstrFile = Text1.Text & "gdmis_data.mdf"
Set fil1 = fs.getfile(lstrFile)
lstrFile = Text2.Text & Format(Now, "yyyymmdd") & "gdmis_data.mdf"
fil1.Copy (lstrFile)
lstrFile = Text1.Text & "gdmis_log.ldf"
Set fil1 = fs.getfile(lstrFile)
lstrFile = Text2.Text & Format(Now, "yyyymmdd") & "gdmis_log.ldf"
fil1.Copy (lstrFile)
MsgBox "备份完毕,请手动启动数据库服务器,各工作站必须重新登陆!"
Command1.Enabled = False
Exit Sub
errLab:
MsgBox "备份失败!"
End Sub