OK Mohammed,

put a SET STEP ON in front of the troublesome code and step through each line of code until you get the error. then you'll know what line of code is causing the error. My guess is that it will be this line: o.NameSpace(cFileZip).copyhere(ofile)

But I've never seen this way of compressing files before. I have used Dynazip, tzip and will soon be trying out xzip.

I've never heard that copying a file into a folder will compress it.

The logic in your code appears to be:

create a file called rpart2.zip in d:\epsoss\
for each file in d:\epsoss\
copy the file into d:\epsoss\
endfor

which doesn't really make sense to me, as you are trying to copy each file onto itself.

>hi,
>1.when i run the program , i got error message and another error mesage ask me to send it to MS. after click many time at cancle , it is quit to desktop, mean i can't see line number.
>
>2.i need to compress my folder to zip.file.
>
>thanks.
>
>>Hi Mohammed,
>>
>>unfortunately I couldn't understand your answers in the email you sent me (BTW, please don't send email, responding here i smuch better).
>>
>>Could you try again:
>>
>>When you step through the code, what line of code causes the error?
>>
>>What are you trying to achieve? Is it just copying a file from one place to another? Or are you trying to create a zip file and zip a file up into that zip file?
>>
>>
>>>hi,
>>>i try ,still same thing.
>>>
>>>regards.
>>>thanks.
>>>
>>>>Hi Mohammed,
>>>>
>>>>just a wild guess, but could it be that you are creating the zip file in the same folder that you are trying to add files to the zip file from? Maybe your code is trying to add the zip file to itself while it is still being created?
>>>>
>>>>I would try setting cFileZip to another folder and see if that solves your problem.
>>>>
>>>>
>>>>>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.