VBS et le zip de plusieurs fichiers en parallèle

Bonjour,
J'utilise un script vbs pour zipper plusieurs fichiers en parallèle
Et je souhaite rendre le traitement très rapide.

Salut

Citation:

---

Envoyé par programmer_share

Bonjour,
J'utilise un script vbs pour zipper plusieurs fichiers en parallèle
Et je souhaite rendre le traitement très rapide.

---

Peux tu nous mettre un peu de ton code, cela nous permettrait de te proposer des idées pour l'améliorer.

Citation:

---

Envoyé par ProgElecT

Salut

Peux tu nous mettre un peu de ton code, cela nous permettrait de te proposer des idées pour l'améliorer.

---

Merci pour votre message.
J'utilise le code enregistré sous file.zip en dessous sous le lien http://www.computerhope.com/forum/in...topic=137593.0
file.zip appelé par le fichier test.bat qui contient { file.vbs /T1/T2/rep.zip R1/R2/rep }
ça marche , mais pas rapide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'Get command-line arguments. ObjA= WScript.Arguments InputFolder = objA(0) ZipFile = objA(1)   'Create empty ZIP file. CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)   Set objShell = CreateObject("Shell.Application")   Set source = objShell.NameSpace(InputFolder).Items Set cible = objShell.NameSpace(zipfile) cible.CopyHere(source)   'Required! wScript.Sleep 3000

---