Décompresser fichiers et répertoire
Bonjour,
J'ai un début de script qui me permet de décompresser tous les fichiers d'un répertoire et sous-répertoire
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
' ------ SCRIPT CONFIGURATION ------
strComputer = "."
strFile = "C:\" ' e.g. d:\scripts\test.vbs
' ------ END CONFIGURATION ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objFile = objWMI.Get("Cim_Datafile='" & strFile & "'")
WScript.Echo objFile.Name
intRC = objFile.UnCompress ' To compress change this to objFile.compress
if intRC <> 0 then
WScript.Echo "There was an error compressing the file: " & intRC
else
WScript.Echo "File compression successful"
end if |
Pouvez vous, svp, m'aider a compléter le script avec l’exclusion de la décompression des répertoires suivant? donc décompresser tous dans le c:\ d:\ e:\ mais pas le répertoires suivants:
C:\WINDOWS \$Ntxxxxx
C:\WINDOWS\$hf_mig$
C:\WINDOWS\ie7updates
C:\WINDOWS\ie8updates
Merci d'avance.
Salento.
