Discussion :

[djack7917]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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+

[chrtophe]

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.

[Invité]

bonsoir,

scripting runtime peut aider aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.