Programme simple de sauvegarde par période dans dossiers datés - vb6

4/5 (6 avis)

Vue 9 019 fois - Téléchargée 13 086 fois

Description

Petit programme de sauvegarde de fichiers.
Développé pour un client désirant sauver par dizaine ses fichiers sur un HD externe avec conservation des sauvegardes qui par la suite sont gravées régulièrement sur DVD.
2 programmes:
- "Param Sauvegarde" pour paramétrer (dans un fichier) les chemins d'origine et de destination. La destination pourra être définie par sa lettre ou son nom (le HD n'aura alors pas besoin d'avoir toujours la même lettre d'unité)
- "Sauvegarde" qui copie par période de 10 jours les fichiers du rep et des sous-rep y compris cachés et système
Les erreurs ne sont pas systématiquement traitées. Par exemple, dans "Param Sauvegarde", si l'on choisit un lecteur CD sans disque, çà plante au moment de la lecture des répertoires.
Aamélioration à venir : vérification de la sauvegarde.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_pierre51 Messages postés 3 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 20 février 2009
11 févr. 2006 à 12:31
Ne serait il pas interessant dans para sauvegarde de pouvoir sauvegarder differents dossiers alors que dans ton programme on n' a q'un seul chemin possible
cs_pierre51 Messages postés 3 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 20 février 2009
11 févr. 2006 à 12:29
Bonjour
j'ai trouvez un bug
en effet j'ai un message d'erreur "Valeur de propriété non valide" sur la ligne de code "Form_Sauv.progressbar1.value=T
j'ai Form_Sauv=9703 et T=12313
la taille de la sauvegarde n'est elle pas trop grande dans mon cas?
cs_jaco2 Messages postés 19 Date d'inscription mercredi 25 mai 2005 Statut Membre Dernière intervention 10 janvier 2006
10 janv. 2006 à 10:21
bien vu. Merci, code corrigé sur VB.
feaskaertes Messages postés 4 Date d'inscription mercredi 16 janvier 2002 Statut Membre Dernière intervention 5 avril 2006
10 janv. 2006 à 09:49
Salut ;)
Je reprends ton code qui est bien pratique. Je voulais quand même demander : dans la fonction "CopieFichiersChercheRep", il y a un test qui est :
"If FileLen(A1 + tmp) <> L Or FileDateTime(A1 + tmp) <> FileDateTime(A1 + tmp) Then"
est-ce que ce ne serait pas plutot :
"If FileLen(A1 + tmp) <> L Or FileDateTime(A1 + tmp) <> FileDateTime(B1 + tmp) Then" ?

Bon si c'est vrai, ce n'est pas grand chose ;)
bonne continuation !
cs_jaco2 Messages postés 19 Date d'inscription mercredi 25 mai 2005 Statut Membre Dernière intervention 10 janvier 2006
31 mai 2005 à 12:11
Oui, pourquoi pas, mais là, l'objectif est une sauvegarde full régulière (par dizaine) avec conservation dans un dossier daté. Ceci dit, ta proposition permettrait d'écraser la précédente sauvegarde dans la même dizaine sans passer une heure à chaque fois (20 à 30 Go sur HD USB externe).

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.