Count images larger than a give size in a folder with vba

[kelly mort]

Hello again,

I have been searching the net for a while now to find a solution to my problem.

I have come close in most cases but not right to the point.

I want to go to a folder called "MyImages" in the location on my workbook. That's. ..... ThisWorkbook.Path & "\MyImages".

Then I count all images that are above 50kb and show results in a MsgBox alert.

Basically the images will be jpeg files but I will be glad if we can track all other image formats as well.

Thanks

 

[kelly mort]

Yes. ....Adding vbDirectory should work fine accross different OS(s) with or without adding Application.PathSeparator

Okay cool

BTW,

don't use the first code . Instead use the second code in post #6

Sure that's what I am using.

Regards

 

[kelly mort]

Hi @Jafaar Tribal,

So I was playing around the code a little bit, wanna add progress bar indicator.

Below is the nature of how my code for the progress bar indicator looks like.

I captured this from a YouTube video.

I want to know if it is possible to implement the progress bar into your code.

If so, then you show me the way around it. For I have stared at the code for long but can't see where to place what.

Thanks

 

[kelly mort]

Hi @Jafaar Tribal,

So I was playing around the code a little bit, wanna add progress bar indicator.

Below is the nature of how my code for the progress bar indicator looks like.

I captured this from a YouTube video.

I want to know if it is possible to implement the progress bar into your code.

If so, then you show me the way around it. For I have stared at the code for long but can't see where to place what.

Thanks

View attachment 2992

@Jaafar Tribak

Oops the autocorrect messed up my mention tag