how to back up database

[godsent]

how to back up database in ms access

[sashi]

Hi there,


FSO will be useful for file backup purpose, make use of the FileCopy function, good luck & take care my fren.. :)

p.s/ FSO -> File System Objects

[Hemant Pathak]

Public Function BackupDatabase(Optional ByVal FileName As String="Default") As Boolean
On Error GoTo Back_Database
Dim fso, fs, Src, Dst
Src = App.Path & "\Database.mdb"
If FileName = "Default" Then
Dst = App.Path & "\Backup\Database.mdb"
Else
Dst = App.Path & "\Backup\" & Trim$(FileName) & ".mdb"
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.GetFolder(App.Path + "\Backup")
C_Backup:
Set fs = fso.GetFile(App.Path & "\Backup\Database.mdb")
fso.CopyFile Src, Dst
MsgBox "Backup Complete.", vbInformation
Exit Function
Back_Database: If Err.Number = 76 Then
MkDir App.Path + "\Backup"
GoTo C_Backup
ElseIf Err.Number = 53 Then
fso.CopyFile Src, Dst
MsgBox "Backup Complete.", vbInformation
Else
ErrorMessage
End If
End Function