Créer une sauvegarde

Version imprimable

Bonjour, j'ai créé un code pour effectuer une sauvegarde de ma base, ce qui fonctionne très bien,
je cherche à sauvegarder sur une clé USB, si quelqu'un pouvait me dire comment faire se serait sympa

Merci djack
Code:

1 2 3 4 5 6 7 Function sauvegarde() Dim fichier As Object Set fichier = CreateObject("scripting.FilesystemObject") fichier.copyfile Application.CurrentDb.Name, Application.CurrentDb.Name & ".Old", True Set fichier = Nothing

11/03/2019, 13h21
marot_r

Bonjour.

Sauf erreur de ma part une clef USB est vue comme un des disques du PC et pour Access cela n'a donc aucune importance.
C'est une copie comme une autre vers un disque en particulier.

Si ta question est "Comment savoir qu'un disque est une clef USB ?" alors là je ne sais pas.

A+
11/03/2019, 19h35
chrtophe

Citation:

Comment savoir qu'un disque est une clef USB ?

Tu peux avec la fonction getDriveType() de l'API Windows. Mais depuis Access c'est lourd.

Je délèguerais ça à un logiciel de synchro, quitte à garder le code d'origine pour faire une copie locale. Il serait même envisageable de l'horodater dans le nom du fichier.

bonsoir,

scripting runtime peut aider aussi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Function ListUSBDriveReady()
    Dim oF As Object, oD As Object, s As String
    Set oF = CreateObject("Scripting.FileSystemObject")
    s = "Lecteur(s) USB prêt(s) :" & vbCrLf
    For Each oD In oF.drives
        If oD.drivetype = 1 And oD.isready Then    'drive removable et Prêt
            s = s & vbTab & "-> " & oD.driveletter & ":" & vbCrLf
        End If
    Next oD
    Set oD = Nothing: Set oF = Nothing
    MsgBox s, vbInformation
End Function

Voir le tuto de Warin pour affiner le code.