VBA do divide zip into volumes that won exceed 28 Mb and adds "Part 1" "2" to the name

Hi everyone,

I have a VBA code that according the folder where excel file (VBA) is:
- Will zip all sub folders (and itīs content) into zip files with the same names
- name the zip files according to the folders name
- 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

HTML Code: 

, and inside that folder i have sub Folders:
apple
grapes
almonds

What i have is a macro that will zip on that same folder Fruit, and return files: 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


What i need now, is that in case any of the zip files exceeds 28 Mb to make volumes like:

apple.zip - Part 1 28Mb
apple.zip - Part 2 28Mb
apple.zip - Part 3 1Mb
grapes.zip 12Mb (if zip wont exceed 28Mb, no need to add to the name "Part 1" )
almonds.zip - Part 1 28Mb
almonds.zip - Part 2 5Mb

Something like that.

I cannot install any software to zip, only the windows default zip software.

Please Login or Register  to view this content.

Can someone help adding to this code the functionality to divide the zips into volumes that won't exceed 28 Mb and rename zips accordingly (Part 1, Part 2 ...)

Thanks