Compacter les dossiers de Thunderbird avec VB6 [Résolu]

malival - 7 oct. 2012 à 17:24 - Dernière réponse :  malival
- 10 oct. 2012 à 21:05
Bonjour à toutes et à tous.
Voilà, je ne sais du tout par où commencer ;-)
J'ai créé un .exe qui copie le dossier de la messagerie "Thunderbird" sur une clé USB. Mon .exe fonctionne très bien, mais le pb est que souvent, il faut que l'utilisateur ouvre d'abord sa messagerie, puis fasse "fichier" "Compacter les dossiers" afin de diminuer le poids. De fait, je voudrais intégrer un script qui compacte les dossiers avant la copie de celui-ci.

Si vous avez une piste, je vous en remercie grandement.

Malival
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
ssauvage 47 Messages postés vendredi 28 février 2003Date d'inscription 9 octobre 2012 Dernière intervention - 9 oct. 2012 à 10:30
3
Merci
Bonjour.

Je ne connais pas de méthode directe pour compacter les dossiers sans passer par Thunderbird, par contre un logiciel permet de compacter les fichiers .sqlite, parfois très volumineux.
Voici le lien :
http://www.sqlite.org/download.html

Personnellement, je place l’exécutable (sqlite3.exe) dans le répertoire du profil, et je lance un fichier .bat dont voici le contenu :

dir /OS *.sqlite
@FOR %%G IN (*.sqlite) DO ( sqlite3 %%G "VACUUM" )
dir /OS *.sqlite

Dans le code ci-dessus, les commandes dir servent juste à afficher la taille avant/après.
Il est facile de coder un équivalent en VB.
L'espace gagné peut être impressionnant, surtout si ce compactage n'a jamais été effectué.
Attention : il ne faut jamais lancer une telle action si Thunderbird est ouvert.

Bon test !

Merci ssauvage 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Commenter la réponse de ssauvage
cs_loulou69 672 Messages postés mercredi 22 janvier 2003Date d'inscription 2 juin 2016 Dernière intervention - 8 oct. 2012 à 13:36
0
Merci
bonjour

7za.exe (7zip) installée sur la clef USB
7za de 7-zip.org

Un script a modifier
pour prendre en compte
sInputDirectory = ...
sOututDirectory = ..
sInputFile
http://www.naterice.com/articles/41

ou
http://www.msfn.org/board/topic/70499-cmdvbs-add-date-to-filename-or-folder-name/
Commenter la réponse de cs_loulou69
0
Merci
Bonjour,
Merci pour la réponse,
mais, je souhaite compacter les dossiers de Thunderbird, même indépendamment d'une sauvegarde.
Est-ce possible ?
Encore merci
Malival
Commenter la réponse de malival
0
Merci
Bonsoir,
Un très grand merci !
C'est parfait !
C'est exactement ce que je cherchais.

Très bonne soirée.

Malival
Commenter la réponse de malival

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.