Opvragen grootte van een bestand en zippen

[linkav]

Beste,

Ik heb een excel-file met daarin een knop dat een bestand gaat mailen. Nu wil ik voor ik ga mailen controleren wat de grootte is van het bestand en als het te groot is wou ik dit graag zippen naar een opgegeven bestandslocatie+naam.
Hoe kan ik de bestandsgrootte opvragen in vba?
Hoe kan ik vanuit vba een bestand zippen?

Graag hoor ik van jullie.

 

[VenA]

Hier een linkje voor het opvragen van de bestandsgrootte http://stackoverflow.com/questions/15883237/vba-excel-function-for-returning-file-size-in-byte

Hoe je een bestand vanuit VBA kan zippen weet ik niet. (dit is volgens mij afhankelijk van welk programma je hiervoor gebruikt. (Staat nergens in de vraag). Vanaf XL-2007 kan je bestanden opslaan als .xlsb. Dan worden ze gecomprimeerd en zal zippen weinig reductie geven.

 

[alphamax]

zie http://www.rondebruin.nl/win/s7/win001.htm

 

[linkav]

Allen,

Bedankt voor jullie reactie!!! Heb het uitgetest en het werkt!

Gr,
Ariane