Making a Zip Folder

[Urby1Kinobe]

Hi all,

New to the forum and a beginner at VBA but picking up bits quite well.

I need to know how to create a new empty Zip folder on my desktop.

I discovered the MKDir but that just makes a normal folder, I can't add .zip to the path name either.

I guess because zip is a windows function and not a excel feature I may have difficulty.

Can anyone help with this? If it helps the zip folder will have a .txt file in

Thanks in advance

[Leith Ross]

Hello Urby1Kinobe,

A Zip folder is a special type of folder because it is actually a file that can contain other files and other zip folders.

This macro will create a folder named "My Zip Archive" on the Desktop if it does not already exist.

Please Login or Register  to view this content.

[Urby1Kinobe]

Thank you for this

I have tried this and there does not seem to be a folder appear on the desktop or zip folders

Yet, there is no errors in the scripts

What am i missing?

Thanks again

[Leith Ross]

Hello Urby1Kinobe,

Copy the code from my last post again. I was having similar trouble but the latest version seems to work fine.

[JasperD]

placeholder so I can find this thread later ;-)

[Urby1Kinobe]

Thank you Leith

This now creates the Dir callled my zip archive but there are no Zip folders present

The script stops at

Open DesktopFolder for binary access write as #1

??

[Leith Ross]

Hello Urby1Kinobe,

Sorry, try this version. I removed the MkDir in the macro. This creates an Empty Zip Folder on the user's Desktop.

Please Login or Register  to view this content.

[Urby1Kinobe]

Amazing!!!

Thank you Leith. This works.

If you have time could you show me how to move a .txt file off the desktop into the new zip folder?

i.e i have a .txt file on the desktop called MyText.txt, how would i get this into the Zip folder. ?

Thanks once again

[Leith Ross]

Hello Urby1Kinobe,

You want to move the file into the folder using VBA, yes?

[Urby1Kinobe]

Yes Leith,

ideally as an addition to , or separate sub routine move my .txt file off my desktop into the Zip folder

This is not essential but would be helpful

Thank You

[Leith Ross]

Hello Urby1Kinobe,

Okay, I think we can do that.

[Leith Ross]

Hello Urby1Kinobe,

You will need to change the File path, file name, and filter to what you will be using.

Please Login or Register  to view this content.

EDIT: The code has been updated. For some unknown reason, looping through the files using the index number was unreliable. Using For Next works with consistent results.

[Urby1Kinobe]

Leith Ross,

Thank you. This works perfectly

I appreciate your accurate and timely support

Thanks again