cFileZip = "C:\temp2\D401001F.ZIP" >>cSource = "c:\temp1\" >>strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18),cFileZip) >>o=CREATEOBJECT("shell.application") >>FOR EACH ofile IN o.NameSpace(cSource).items >> o.NameSpace(cFileZip).copyhere(ofile) >>ENDFOR>>
cFileZip = "C:\temp\D401001F.ZIP" >>cDestination = "c:\temp\" >> >>o=CREATEOBJECT("shell.application") >>FOR EACH ofile IN o.NameSpace(cFileZip).items >> o.NameSpace(cDestination).copyhere(ofile) >>ENDFOR>>