cFileZip = "import\usgen.zip" cDestination = "import\" o = CREATEOBJECT("shell.application") FOR EACH ofile IN o.NameSpace(cFileZip).items o.NameSpace(cDestination).copyhere(ofile) ENDFOR