hi all,
any idea,help

i got error message when i try to run this code under.

VFP9.EXE-APLLICATION ERROR
The Instruction at "Ox7338aa25" referenced memory at "Ox7338aa25", the memory could not be" READ"

cFileZip = "d:\epsoss\rpart2.ZIP"  
cSource = "d:\epsoss\"
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

thanks.