Utilisation de batch pour zipper un dossier complet.Résolu

Question

Salut tout le monde!

Je souhaite zipper un dossier complet (ses fichier &#224; l'interieur) d'un "coup" et cel&#224; grace &#224; l'utilisation du "Batch".J'ai un programme qui est "parfait" (en deux lignes) qui fera ce zippage cependant je sais pas comment peut-on faire appel &#224; des commandes en VB.

Important:
Avant de se lancer au progamme il faut d'abord copier le fichier rar.exe (qui se trouvedans le repertoire de Winrar)  ou zip.exe (qui est dans le repertoire de Winzip) et le mettre dans System32 (C:\windows\system32).

Voici le code batch( dans le cas de winzip ou de winrar).

Winzip:  (si vous avez winzip)

zip -r    "dossier.zip"   "c:\dossier"              'Pour zipper le dossier

move /y  "le dossier.zip"  "c:\destination     'Sauvegarde du zip

Winrar: (si vouz avez winrar)

rar -r    "dossier.rar"   "c:\dossier"              'Pour zipper le dossier

move /y  "le dossier.rar"  "c:\destination     'Sauvegarde du zip

   Merci de votre aide!!!

Gobillot · Accepted Answer

inutile de passer par un r&#233;pertoire interm&#233;diaire.
inutile de copier de fichier exe.
rar.exe est la version DOS
winrar.exe est la version Windows (plus performant)

Shell "C:\PROGRA~1\WINRAR\winrar.exe" & " a -r " & "C:\destination\dossier.rar" & " " & "C:\dossier\*.*"

Daniel

kg_online · Answer

Important:

Avant de se lancer au progamme il faut d'abord copier le fichier rar.exe (qui se trouve
dans le repertoire de Winrar)  ou zip.exe (qui est dans le repertoire de Winzip) et le mettre dans System32 (C:\windows\system32).




1) Cr&#233;er un fichier.bat:


 


C&#8217;est tr&#232;s simple :


** Ouvrer une feuille &#171; bloc-note &#187;


** Balancer ce  petit programme &#224; l&#8217;interieur


 


&#9658;Pour ceux qui ont winrar


 




                                                                                                         


@ echo off                                                                                                                


rar a -m5 "mode.rar" "C:\Documents and Settings\ ??????\Bureau\dossier"     


move /y "dossier.rar" "dossier destinataire"


cls


 


&#9658;Pour ceux qui ont winzip


 




                                                                                                         


@ echo off                                                                                                                


zip -r "dossier.zip" "C:\Documents and Settings\ ??????\Bureau\dossier"     


move /y "dossier.zip" "dossier"


cls


 


 


 


** Enregistrer en mettant dans &#8216;Nom de fichier&#8217; : &#8220;ton_fichier.bat&#8221;


 


2)  Appel   du fichier batch dans un programme VB


 


Call Shell("C:\Documents and Settings\??????\Bureau	est1.bat", vbHide)



 


Et &#231;a marche nickel!


                       Merci de Daniel! 


Khadime

Gobillot · Answer

je maintiens, inutile de copier rar.exe, on peut le lancer directement &#224; partir de sa position.
d'ailleurs c'est pas rar.exe qu'il faut lancer mais winrar.exe
le move n'est pas n&#233;cessaire non plus.

Daniel

kg_online · Answer

Effectivement Daniel t'as raison ta m&#233;thode marche bien  mais c'est ,quand m&#234;me, lent d'&#233;x&#233;cution compar&#233;e &#224; la mienne qui est pr&#233;sque instantan&#233;e.Bref l'essenciel est que &#231;a marche!
  En tout cas merci encore de ton aide!
                        @+++++

ghans · Answer

Bonjour,
merci pour ton info pour zipper
Aurais-tu la meme commande pour d&#233;zipper car je voudrais eviter de prendre l'ocx fournis ici

Gh@ns

Gobillot · Answer

c'est les paramètres qui changent sinon il existe Unrar.exe taper Rar ? au prompt du Dos (dans le bon dossier bien sur) e Extraire les fichiers dans le répertoire courant x Extraire les fichiers avec le chemin complet r Sous-dossiers récurrents Daniel

ghans · Answer

Marci

Gh@ns

ghans · Answer

Cela fonctionne nickel...avec un fichier .rar
histoire d'etre chiant.... une id&#233;e pour que cela fonctionne aussi avec un .zip ?

Gh@ns

ghans · Answer

La solution que j'ai trouv&#233; c'est de faire une premiere commande de convertion en .exe puis de dezipper cet executable.

1ere commande :
winrar.exe s -r "c:	oto.ZIP" "C:"
2eme commande :
winrar.exe e -r "c:	oto.exe" "C:"
Cela fonctionne...maintenant il y a surement mieux

Gh@ns

bayadkarim · Answer

bonjour Gobillot,

commet zipper les fichier selectioné dans une list box

For l = 0 To List1.ListCount - 1
Shell "C:\program files\winrar\rar a -r " & ".\ARCHIVER\dossier.rar" & " " & ".\IN\*" & List1.List(l) & "*"
        
Next l

Utilisation de batch pour zipper un dossier complet.

10 réponses

Discussions similaires