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

Soyez le premier à donner votre avis sur cette source.

Vue 8 521 fois - Téléchargée 12 929 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
-
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
-
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
-
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
-
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
-
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.