Conversion d'une répertoire à un fichier .rar en Vbscript

Fermé
Sadyo96 Messages postés 1 Date d'inscription mardi 2 février 2016 Statut Membre Dernière intervention 2 février 2016 - Modifié par pijaku le 2/02/2016 à 16:16
Bonjour,
Je souhaiterais utiliser un Vbscript (vbs ) qui convertie une répertoire à un fichier compresser (.rar ) en utilisant la date du système.

Mon script :

strDate = Date()
dd = left (strDate , 2)
mm = Mid (strDate , 4, 2)
yy = Right (strDate , 2)
strWorkDirectory = "C:\Users\TIS\Desktop\sf\etat"
strMonth = mm & "_20" & yy
strFolder = dd & "-" & mm & "-" & yy & "Files"
dim filesys
set filesys=CreateObject("Scripting.fileSystemObject")
set objFolder = filesys.getFolder (strWorkDirectory)

If not filesys.FileExists( strWorkDirectory & "\" & strMonth & "\" & strFolder & ".rar" ) then
Set objShell = CreateObject("WScript.Shell")

strCmd = """C:\Program Files (x86)\WinRAR\WinRAR.exe"" a -m3 -mt0 -s -ri -t -ep ""C:\Users\TIS\Desktop\sf\etat\02_2016\02-02-16Files"" -n ""C:\Users\TIS\Desktop\sf\etat\02_2016\02-02-16Files"""

objShell.Run strCmd, 1, True
else
wscript.echo "Found"
end if

J'aimerais bien que la commande strCmd soit sous cette forme pour que mon script fait la conversion du répertoire chaque jour automatiquement si c'est possible :

strCmd = """C:\Program Files (x86)\WinRAR\WinRAR.exe"" a -m3 -mt0 -s -ri -t -ep ""C:\Users\TIS\Desktop\sf\etat\" & strMonth & "\" & strFolder " -n ""C:\Users\TIS\Desktop\sf\etat\" & strMonth & "\" & strFolder ""

Merci pour votre attention,
A voir également: