Import/back-up de fichiers et dossiers utils

Soyez le premier à donner votre avis sur cette source.

Vue 5 391 fois - Téléchargée 683 fois

Description

Ce petit prog est juste pour faire des sauvegardes et des importations
de 3 dossiers et fichiers que je conserve depuis des lunes.

l'option 'import' doit se faire en 3 étapes en cliquant sur le chemin a
chaque fois.

par contre le 'back-up' ('export') peut se faire en une seule étape (plus conviviale)

Conclusion :


LE LOGICIEL EST FAIT POUR XP UNIQUEMENT (fr et en), UNE DEUXIEME VERSION
SERA SUR LE SITE D'ICI PEU :) CETTE 2 EME VERSION RENDRA ACCESSIBLE TOUTES LES
VERSION DE WINDOWS.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
Je vois que jmp77 en a marre de voir des fichiers inutiles partout !
Et bien moi je dis "Vive jmp77!". Pourqoi se faire un download de 300Ko au lieu de 10Ko?
Aller, faut commencer à s' appliquer les gars, ça fait 15 jours que ça se relâche ...
N' oubliez pas que certains membres n' ont pas l' ADSL (heuh, je ne parle pas de moi mais je pense aux autres).
Bon, il semblerait que tu es nouveau venu.
Tout le monde est passé par là donc essaye de faire de t'en souvenir et c' est pas mal pour un début.
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
9
autre chose : pas de fichiers inutiles du genre *.~* (ça encombre les serveurs)
Voilà @+
Messages postés
10
Date d'inscription
samedi 6 mars 2004
Statut
Membre
Dernière intervention
25 janvier 2009

voila cest fait.
merci
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
13
hello, plusieurs petits conseils :
1) pourquoi mettre "code juste bon pour mon ordi" au lieu d'essayer de choper proprement le chemin ?
exemple, au lieu de :

outlookin:= 'C:\Documents and Settings\Néo\Local Settings\Application Data\Identities\{B63ADADB-3872-426F-A5DF-D95DAB55F67E}\Microsoft';

tu chch la clé : HKEY_CURRENT_USER\Identities - Default User ID
puis tu fais :

outlookin:= 'C:\Documents and Settings\'+UserName+'\Local Settings\Application Data\Identities\'+CleID+'\Microsoft';

2) comme le dit ni69, il existe la propriété "autocheck" donc dans la Forme il a raison, et moi pour le Fond je te conseille de faire plutot dans ce style avec des booleans :

MonBooleen := not MonBoolean;
ce qui revient à la meme chose que :
if MonBooleen := true then MonBooleen:= false else MonBooleen := true;

quand meme mieux non ?

3) "innexistant" ne prends qu'un seul N "inexistant"

4) showmessage('fichier innexistant dans : '+outlookin); peut etre remplacé par :
showmessagefmt('fichier innexistant dans : %s',[outlookin]); tres utiles quand il y a plusieurs parametres (ici un seul > outlookin)

5) a ta place je creerais tes variables contenants les chemins dès la création. a toi de voir

voila pour moi =) bon travail a vue d'oeil, je testerais la source compilée bientot et pourrais commenter le dfm :p
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
9
Voilà quelques petites retouches...

- Utilise plutôt Close à la place de Application.Terminate... c'est moins "violent" ;)

- Au lieu de faire :
procedure TFMain.Ecraserlefichier1Click(Sender: TObject);
begin
if ecraserlefichier1.Checked = true then
ecraserlefichier1.Checked := false
else
ecraserlefichier1.Checked := true;
end;
Mets plutôt la valeur True à AutoCheck de ton MenuItem
(valable aussi pour Demandedeconfirmation1)

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.

Du même auteur (etiennedelphiman)