Décompresser fichiers et répertoires

Version imprimable

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 mais il ne fonctionne pas pouvez vous 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 \$Nt*
C:\WINDOWS\$hf_mig$
C:\WINDOWS\ie7updates
C:\WINDOWS\ie8updates?

voici le script:
Code:

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

Voila le travail et ça fonctionne :P

il faut juste adapter le ligne 12 et 13 (') le descendre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 
ExecQuery("c")
ExecQuery("d")
ExecQuery("e")
 
Sub ExecQuery(sDrive)
wql="SELECT * FROM Win32_Directory WHERE (Drive='" & sDrive & ":') 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  
End Sub

07/05/2012, 15h57
salento9

il faut que trouve comment écrire dans un fichier log tout ce que le script fait

pouvez vous svp m'aider?

Citation:

il faut que je trouve comment écrire dans un fichier log tout ce que le script fait

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim Fich,fso, Ret
     Ret = ""
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set Fich = fso.OpenTextFile("C:\Monfichier.log",2,True)
   'Ensuite dans la boucle For ....Each mets à la place de Wscript.Echo .... 
    Ret = Ret + objFolder.Caption + VbNewLine
  ' et juste après Next(de la boucle) mets ceci :
     Fich.Write Ret
     Fich.Close
     Set fso = Nothing 
     Set Fich = Nothing

Merci beaucoup ;)

c'est comme ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim Fich,fso, Ret
     Ret = ""
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set Fich = fso.OpenTextFile("C:\temp\decompress.log",2,True)
 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 
ExecQuery("c")
ExecQuery("d")
ExecQuery("e")
 
Sub ExecQuery(sDrive)
wql="SELECT * FROM Win32_Directory WHERE (Drive='" & sDrive & ":') 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
Ret = Ret + objFolder.Caption + VbNewLine
 
Next  
 
Fich.Write Ret
     Fich.Close
     Set fso = Nothing 
     Set Fich = Nothing
End Sub

en effet il crée un log avec tous les fichiers/répertoire qui as parcourus,

il y t'il la possibilité d’écrire un log pour les fichier/répertoire qui ont étés parcouru + un log avec le fichier qui ont été décompresses?

j'ai ceci mais comment l'utiliser?

Code:

1
2
3
4
5
if objFolder.Compressed Then
    ret=objFolder.Uncompress
    Wscript.Echo ret
    Wscirpt.Echo objFolder.Caption
End If

Je viens a vous pour votre précieux aide,

pouvez m'aider a compléter ce script en ajoutant la création d"un fichier log avec les fichiers qui ont étais compressés + arrêter la décompression si le disque c:\ fait moins de 1Giga :(

le script plus haut ne fonctionne pas :( le suivant il fonctionne mais pas de log et pas de check pour le disque si moins de 1Giga stop décompression.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") ExecQuery("c") ExecQuery("d") ExecQuery("e") Sub ExecQuery(sDrive) wql="SELECT * FROM Win32_Directory WHERE (Drive='" & sDrive & ":') 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 if objFolder.Compressed Then ret=objFolder.Uncompress Wscript.Echo ret Wscript.Echo objFolder.Caption End If Next End Sub

j'ai ce code pour l'instant qui crée un fichier log mais il écrit seulement de Zero.

il manque pour que le script regarde si l'espace disque est suffisant (minimum 1 giga) sinon arrêter le script.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
On Error Resume Next
 
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 
Dim oFSO                                : Set oFSO            = CreateObject("Scripting.FileSystemObject")
Dim oWMI                               : Set oWMI           = GetObject("winmgmts:\\.\root\cimv2")
Dim sLogFile                            : sLogFile              = "c:\temp\decompress.log"
 
sub_ExecQuery("c")
sub_ExecQuery("d")
sub_ExecQuery("e")
 
Sub sub_ExecQuery(sDrive)
Dim sWql                                 : sWql                            = "SELECT * FROM Win32_Directory WHERE (Drive='" & sDrive & ":') 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'"
Dim oFolder, oFolders     : Set oFolders       = oWMI.ExecQuery( sWql )
Dim errResults
 
         For Each oFolder in oFolders
        errResults = oFolder.Uncompress()
         'Wscript.Echo oFolder.Caption
         sub_EditLog(errResults)
         Next  
End Sub
 
Sub sub_EditLog(sTxt)
         If Not oFSO.FileExists(sLogFile) Then oFSO.CreateTextFile sLogFile, True
 
         Dim oFile                        : Set oFile             = oFSO.OpenTextFile(sLogFile, ForAppending)
         oFile.Write sTxt & vbCrLf
         oFile.Close
 
End Sub

tu peux t'inspirer de ce
Code:

1 2 3 4 5 6 7 8 9 Function CheckFreeSpace(drvPath) Dim fso, d, Free Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(drvPath) Free = (d.FreeSpace/1024)/1024 ' Conversion en Mo Free = FormatNumber(Free/1024,1) ' conversion en Go avec un chiffre après la virgule CheckFreeSpace = Free End Function msgbox CheckFreeSpace("C:") ' Exemple d'utilisation
Reste à appeler la fonction avec la condition voulue dans la boucle For Each oFolder in oFolders si bien qu'à chaque itération se fait la vérification de l'espace libre. Il va de soit qu'il faut adapter la fonction pour avoir quelque chose comme :
If CheckFreeSpace("C:") <= 1 Then Wscript.Quit(0)