[求助]备份后台数据

andymark

Public Function BackEndData() As Boolean
Dim StrDesPath As String
Dim StrSourcePath As String
Dim StrDesName As String
Dim StrSourceName As String
StrSourceName = "Data.mdb"
StrSourcePath = CurrentProject.Path & "\Data\" & StrSourceName
StrDesName = Format(Now, "yymmdd") & "data.mdb"
StrDesPath = CurrentProject.Path & "\Bak\" & StrDesName
  If Dir(StrDesPath) <> "" Then
      Kill StrDesPath
   End If
FileCopy StrSourcePath, StrDesPath
   
End Function