VB Code to count number of dated pdf file in folder

[rizmomin]

Hello:

I need VB Code to do the followings.

I have folder C:\Reports\

Then i have subfolders

C:\Reports\Store1\Recpt\
C:\Reports\Store2\Recpt\
C:\Reports\Store3\Recpt\
C:\Reports\Store4\Recpt\
C:\Reports\Store5\Recpt\

and so on..

Each of these \Recpt\ folders have pdf reports starting with MM-YYYY.
Please refer to attached file.
I need Code to count # of monthly files for each store and put in column B,C,D, E and so on.

For Example i have for Store1 i have 3 files starting with 01-2016 so i will have 3 in cell B2.


Let me know if you have any questions.
Thanks.

Riz

[Sintek]

Here's one way...Tests fine provided you store the file housing this code in reports folder...

Please Login or Register  to view this content.

[yujin]

This is my version. How's it?

Please Login or Register  to view this content.

[rizmomin]

Hello Guys:

Don't seems to work.
My logic is to go thru each \Recpt\ folder for each store stored in row 1 of the file and look/count # of pdf file starting with text in column A and add the result in corresponding store column.
Please let me know if you have any questions.
Thanks.

Riz

[Sintek]

Hi Riz

Although both tests fine, yujin code must simpler...Why do you say the code does not work?

[rizmomin]

Hello:

I like yujin code but it does not do what it suppose to do.
It keeps on looping with the same result, total # of pdf file in a folder and the code needs to go thru each Store in row2 and put the result for the MM-YYYY shown in column A.
Need code to pick up "StoreName" and "MonthYear"
Please let me know if you have any questions.
Thanks.

Riz

[Sintek]

Riz, i have tested and both codes work

[rizmomin]

Hello:

Would you mind if you can upload your test file.
I like to see the configuration and how the code is working.
Thanks
Riz

[Sintek]

Am using your upload in Post #1
This also works...
NB Store the file housing this code in reports folder.

Please Login or Register  to view this content.

[rizmomin]

Hello sintek:

It works, thanks a lot.
However, what i am seeing is if i run the macro 2 times then it adds up the number instead of fresh number.
Example :
I have 4 pdf file in folder,,,Run the macro it gives 4 in correct cell
Now if i run the macro again it gives 8 although the number of pdf file is still 4

Please help and send corrected code.

Thanks a lot

Riz

[Sintek]

Change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

[rizmomin]

Hello:

Thanks a lot, works

Riz

[Sintek]

Glad you got it sorted...Pls mark thread as solved...tx for rep +