Backup en Vb.Net Résolu/Fermé

Question

Bonjour,J'ai une petite question concernant le backup en VB .NET.Je m'explique .... Je suis en train de faire un logiciel en VB .NET avec une base de donnée ACCESS 2000. La base va être sur le c:\.J'aimerais intégrer dans mon logiciel un menu avec comme choix de : 'sauvegarder la base de donnée' sur un autre lecteurex.(Fichier->Sauvegarde de la base de donné)Soit pour l'envoyé sur une diskette oubien sur une clé usb.Un peu comme le XCOPY dans le DOS, pour copier ma base sur un autre lecteur en cas ou l'ordinateur bog.J'aimerais savoir s'il existe une fonction(ou autre) pour copier un fichier vers une autre destination ????Avez-vous une idée de ce que je pourrait faire !! Ou bien me conseiller quelques chose.Merci de votre aide !Pascal_22

BLODOX · Answer

Facile...'par exemple, dans un de mes applis, j'utilise :   _____________________________________________________dim F as Integer = FreeFile()'If System.IO.File.Exists(SRC_FILE) Then     BKP_DATE = System.IO.File.GetLastWriteTime(SRC_FILE)     System.IO.File.Copy(SRC_FILE, BKP_FILE, True)End If'FileOpen(F, SRC_FILE, OpenMode.Output, OpenAccess.Write)'etc... _____________________________________________________oùSRC_FILE = mon fichier de travailBKP_FILE = mon fichier de sauvegardeBKP_DATE me sert juste à récupérer la date de dernière écriture sur mon ancien fichier de sortie qui devient mon nouveau fichier de sauvegardeNote : "True" dans le "System.IO.File.Copy()" indique quel'ancien fichier de sauvegarde est "écrasé" par le nouveau.SRC_FILE & BKP_FILE sont déclarés en string et initialisés soit "en dur" ex : SRC_FILE : "C:\MonRepertoireSurMonDisk\MonFichierAMoi.xyz"BKP_FILE : "K:\MonRepertoireSurMaClefUSB\MonFichierAMoi.xyz"soit en récupérant le "Application.StartupPath" et/ou en gérant dynamiquement le(s) répertoire(s)ex:Public FILE_PATH As String = Application.StartupPathPublic SRC_FILE As String = FILE_PATH & "\MonFichierAMoi.xyz"Public BKP_FILE As String = FILE_PATH & "\MonFichierAMoi.BAK"Public BKP_DATE As String = Nothing(ici je me sers du même répertoire et du même nom de fichier, seule l'extension change)Si ça répond à ta questiona+

Pascal_22 · Answer

Salut BLODOX,Merci tu as bien répondu à ma question. Merci encore !!!Pascal_22

vadr · Answer

Bonjour
Je suis dans le meme cas, j'ai utilisé le code fourni mais j'ai message d'erreur l base que vous voulez copier est déja ouverte 

merci de m'aiguiller
@+
philippe