Discussion :

[programmer_share]

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

[ProgElecT]

Salut

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.

[programmer_share]

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 :

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

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