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

Discussion: Créer une sauvegarde

  1. #1
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    janvier 2012
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : janvier 2012
    Messages : 11
    Points : 14
    Points
    14

    Par défaut 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

    Homme Profil pro
    Inscrit en
    octobre 2005
    Messages
    12 838
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2005
    Messages : 12 838
    Points : 19 467
    Points
    19 467

    Par défaut

    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


    Homme Profil pro
    Technicien maintenance
    Inscrit en
    août 2011
    Messages
    10 256
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : août 2011
    Messages : 10 256
    Points : 22 904
    Points
    22 904

    Par défaut

    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/tutoriels/minisysteme/
    Mon article sur le P2V : http://chrtophe.developpez.com/tutoriels/p2v/
    Consultez nos FAQ : Windows, Linux, Virtualisation

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    août 2010
    Messages
    284
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2010
    Messages : 284
    Points : 453
    Points
    453

    Par défaut

    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.

Discussions similaires

  1. Créer une sauvegarde de l'installation Vista
    Par Yepazix dans le forum Windows Vista
    Réponses: 6
    Dernier message: 01/12/2008, 16h02
  2. [SQL-SERVER 2000] Comment créer une sauvegarde ?
    Par bodev dans le forum MS SQL-Server
    Réponses: 4
    Dernier message: 03/10/2008, 16h06
  3. Créer une Sauvegarde
    Par boby15000 dans le forum Windows Forms
    Réponses: 8
    Dernier message: 03/06/2008, 20h35
  4. Créer une Sauvegarde :
    Par parp1 dans le forum VB 6 et antérieur
    Réponses: 18
    Dernier message: 26/04/2007, 20h48
  5. Réponses: 6
    Dernier message: 17/08/2006, 10h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo