Compression de fichiers avec un vbs

Bonjour à tous!

J'ai un problème de mise en oeuvre sur un script vbs devant compresser des fichiers en utilisant WinRar.

voici son contenu:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

basefolder = "C:\blanne" targetfolder = "C:\blanne" winrar = "C:\Program Files\WinRAR\rar.exe" winrarargs = "a -m5"   Set fso = CreateObject( "Scripting.FileSystemObject" ) Set sho = CreateObject( "Wscript.Shell" ) Set bf = fso.GetFolder( basefolder )   Wscript.Echo bf.SubFolders.Count & " dossiers se trouvant dans " & basefolder & " vont etre compresses..."   For Each f in bf.SubFolders Wscript.Echo " Compression de " & basefolder & "\" & f.Name commandline = """" & winrar & """" commandline = commandline & " " & winrarargs commandline = commandline & " " & """" & targetfolder & "\" & f.Name & """" commandline = commandline & " " & """" & basefolder & "\" & f.Name & """" sho.Run commandline, 1, vbTrue Next

---

C'est un script que j'ai récupéré sur la toile mais que je n'arrive pas à appliquer concrètemment à mon cas.
Ce que je recherche... dans mon répertoire "blanne" il y a des documents (.txt) que je voudrais compresser (.rar).
J'ai posé le script directement dans %systemdrive%\blanne mais le seul résultat que j'obtiens est celui-ci:
0 dossier vont être compresses... :cry:
Résultat ==> rien

J'en perds mon latin :(

Monter des batches ne me pose pas de soucis, mais dans ce cas j'ai besoin d'un vbscript pour réaliser cette compression - je ne suis pas trés fort dans ce domaine... je vous demande donc une assistance afin de m'expliquer ou je me trompe ou alors si vous avez une autre solution pouvant résoudre ce souci de compression.

Merci de vos réponses.

bonjour, commence par afficher la ligne de commande que tu génére

Code:

---

wscript.echo commandline

---

et teste la indépendamment de vbs.

Merci bbil de me répondre, c'est trés sympa.

Ce que tu me demandes de faire sur le script se situe bien ici?

Code:

---

1 2	Wscript.Echo " Compression de " & basefolder & "\" & f.Name

---

Cette ligne de commande n'affiche pas le chemin correct? ou alors dois-je rajouter "wscript.echo commandline" dans le script?
Maintenant tester indépendamment de vbs... no soucis, simplement la première partie me fait déjà partir en live alors la seconde...
Si j'arrive à comprendre le raisonnement des commandes de ce script je serai en mesure d'appliquer tes directives.

Un peu plus d'explications stp, je suis vraiment trés trés débutant en commandes vbs.
Merci. :oops:

non sur la ligne précédent :

Code:

---

sho.Run commandline, 1, vbTrue

---

ce n'est pas une question de VBSCript .. la variable commandLine contient commande à lancer "en ligne de commande" pour exécuter winrar, vérifie cette commande.

Comment veux-tu que je fasse cette vérification?
sho.run active commandline non?

Avant :

Code:

---

sho.Run commandline, 1, vbTrue

---

tu rajoutes :

Code:

---

wscript.echo commandline

---

Et dis nous ce qu'il s'affiche.

Bonjour,

J'ai moi aussi récupérer ce script qui fonctionne tres bien.

Seulement j'aimerais le modifier, et autant vous dire que je connais rien au VBscript.

Quel modif faudrait il que j'apporte au script, pour qu'il compresse chaque fichier séparément dans chaque sous dossier, ce qui me permet d'avoir des fichiers compressé mais en conservant toutes l'arborescence des répertoires.

Merci d'avance de vos réponses.