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\Databa se.mdb"
Else
Dst = App.Path & "\Backup\" & Trim$(FileName) & ".mdb"
End If
Set fso = CreateObject("S cripting.FileSy stemObject")
Set fs = fso.GetFolder(A pp.Path + "\Backup")
C_Backup:
Set fs = fso.GetFile(App .Path & "\Backup\Databa se.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