Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

Créer une sauvegarde


Sujet :

Access

  1. #1
    Membre à l'essai
    Créer une sauvegarde
    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

  2. #2
    Modérateur

    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+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  3. #3
    Responsable Systèmes

    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.
    Ma page sur developpez.com : http://chrtophe.developpez.com/ (avec mes articles)
    Mon article sur la création d'un système : http://chrtophe.developpez.com/tutor...s/minisysteme/
    Mon article sur le P2V : http://chrtophe.developpez.com/tutoriels/p2v/
    Consultez nos FAQ : Windows, Linux, Virtualisation

  4. #4
    Invité
    Invité(e)
    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.