Discussion :

[salento9]

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 :

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

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.

[salento9]

Bonjour,

j'ai finalement trouvé ce code: mais après exécution du script il ne fait rien, pas de message d'erreurs rien... pouvez vous svp m'aider?
merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
wql="SELECT * FROM Win32_Directory" _
  & " WHERE (Drive='c:' OR Drive='d:' OR Drive='e:')" _
  & " AND NOT Name like 'C:\\WINDOWS\\$Nt%'" _
  & " AND NOT Name='C:\\WINDOWS\\$hf_mig$'" _
  & " AND NOT Name='C:\\WINDOWS\\ie7'" _
  & " AND NOT Name='C:\\WINDOWS\\ie8'"
Set colFolders = objWMIService.ExecQuery( wql )
For Each objFolder in colFolders
    errResults = objFolder.Uncompress()
    'Wscript.Echo objFolder.Caption
Next

[hackoofr]

Je vous conseille de poser votre question dans la section Vbscript peut-être vous trouviez votre bonheur

[salento9]

Je vous conseille de poser votre question dans la section Vbscript peut-être vous trouviez votre bonheur

GRAND Merci.