cFileZip = "C:\temp2\D401001F.ZIP" >cSource = "c:\temp1\" >strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18),cFileZip) && Créer un fichier zip >o=CREATEOBJECT("shell.application") >FOR EACH ofile IN o.NameSpace(cSource).items > o.NameSpace(cFileZip).copyhere(ofile) >ENDFOR >yes.. :)