Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Zip files
Message
From
29/03/2022 11:30:30
 
 
To
29/03/2022 11:18:22
Lutz Scheffler (Online)
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
01684018
Message ID:
01684023
Views:
42
Thank you Lutz.

>>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?
>
>Just to let you know. This is code with good chances to fail. Doug run into this with Thor on my comp. You assume that the user uses the M$-build-in compression. This must not be true.
>Either try-catch or check http://www.sevenforums.com/tutorials/13619-zip-folders-enable-disable-windows-explorer-view.html
>to learn what registry entry to read.
*******************************************************
Save a tree, eat a beaver.
Denis Chassé
Previous
Reply
Map
View

Click here to load this message in the networking platform