Discussion :

[tcherrio]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...
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.

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wscript.echo commandline

et teste la indépendamment de vbs.

[tcherrio]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

non sur la ligne précédent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tcherrio]

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

[ced600]

Avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sho.Run commandline, 1, vbTrue

tu rajoutes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wscript.echo commandline

Et dis nous ce qu'il s'affiche.