Sauvegarde Base Access

Salut à tous

comment sauvegarder une base access sur une disquette ou plusieurs avec vb6

merci de vos réponses

A+

'Ceci est un exemple de code qui te permettra de sauvegarder ta base j'espère qu'il t'aidera
Private Sub CmdExecuter_Click()
Dim FileSource, FileDestination
On Error GoTo Eerror
'Si la date et l'heure du système correspond à la date et l'heure
'précisées alors commence la copie de la BD à l'emplacement indiqué

If MsgBox(" Voulez-vous lancer la copie de la Base de Donnée ", vbYesNo + vbExclamation, "Sauvegarde de la base de Donnée") = vbNo Then Exit Sub
MousePointer = 11
FileSource = LoCalisaTion

If Trim(TxtCheminSauve) = "" Then
MsgBox " le repertoire où doit être copiée la Base de Donnée n'est pas précisé," _
& " selectionner le repertoire de sauvegarde dans le menu OUTIL ", vbInformation
MsgBox " la sauvegarde de la Base de Donnée n'a pas réussie", vbCritical, "Copie abandonnée "
MousePointer = 0
Exit Sub
End If

If Right(TxtCheminSauve, 1) <> "\" Then
TxtCheminSauve = TxtCheminSauve + "\"
End If

FileDestination = TxtCheminSauve + "Magasin_DIT_SAUVE.mdb"

FileSource = LoCalisaTion '"L:\GESCOUR.mdb" '
' Fermé la BD avant la copie
MyConnexion.Close
FileCopy FileSource, FileDestination
'SetAttr FileDestination, vbHidden
'renitie la BD
initBD
'*********************************************
MsgBox " Sauvegarde de la base de donnée éffectuée avec succès ", vbInformation
MousePointer = 0
Exit Sub
Eerror:
MsgBox Err.Description & ": le chemin specifié pour la sauvegarde de la Base de Donnée est introuvable, " _
& "selectionner le chemin de sauvegarde dans le menu OUTIL", vbCritical
MsgBox " la sauvegarde de la Base de Donnée n'a pas réussie ", vbCritical, "Copie abandonnée "
initBD
MousePointer = 0
End Sub