VBA to Zip all Folders into files separately with same name

[fleyd]

Hello everyone,

I have searched the forum but cant seem to find exactly what I'm looking.

I would like a VBA code that according the folder where excel file (VBA) is:
- Will zip all folders (and it´s content) into zip files with the same names
- Don´t want or need to choose names of the files or destination folders
- Destination folder must be the exact same folder where the excel file with the VBA code is
- The folder will be / is a windows network folder

Imagine my excel file is at folder name Fruit, and inside that folder i have sub Folders:
apple
grapes
almonds

What i want, is to run the macro and on that same folder, Fruit, have apple.zip + grapes.zip + almonds.zip
And if i run the macro again, the code should overwritten the zip files according to the new files or folders inside folder Fruit

Appreciate your help, i have tried other codes here from the forum but for some reason i couldn't get them to work, mainly because they do different things from what i´m looking.

 

[fleyd]

Hi again fleyd. It would probably be pretty easy to determine by code how big the file size is (ie. is it larger than 28MB) but as for splitting it into smaller pieces I have no ideas how to make this possible. I'll google around and reply if I happen to find anything similar. Sorry I can't be of any other assistance. Good luck. Dave

Hi,

Ok, in case you find anything, let me know. If not, I can only thank you for trying to help.

Cheers.

 

[NdNoviceHlp]

The code at this link might be helpful? Dave

Deleting some specific files from a Zip using VBA

During a complete macro process I am creating a Zip file of a Folder. That folder have multiple sub-folders and files. Using This code: Dim oApp As Object NewZip (s_path & "\" & ac...

stackoverflow.com