Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Zip files
Message
From
29/03/2022 10:48:58
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Zip files
Miscellaneous
Thread ID:
01684019
Message ID:
01684019
Views:
49
Hello all,

I have this code to zip files

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

I would like to have the possibility to pick one by one, the files that should go in my zip file.

Can I modify that code or do I need to do it another way? If another way you can provide code?
*******************************************************
Save a tree, eat a beaver.
Denis Chassé
Reply
Map
View

Click here to load this message in the networking platform