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.