Ashe reenignE esreveR | Cado, tu l'enregistres en machin.vbs et tu fais "cscript machin.vbs" pour le lancer (jme sens sale, j'ai du faire du VBS )
Code :
- basefolder = "C:\blah"
- targetfolder = "C:\blah"
- winrar = "C:\Program Files\WinRAR\winrar.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
| ---------------
Globe trotter/SDF - Reims, France
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe
|