Macro to count specific file in folder

Hello!

So, I have been searching all over the internet for the solution to this problem I am having and I am hoping someone here can help me out.

What my macro supposed to do is to count a number of specific files in a folder then add the count +1 at the end of the file.

Here is the part of code I have...

Please Login or Register  to view this content.

I have tried changing the i definition to integer, changing the variable "*" to "*.pdf", removing criteria and tried to find all files in a folder, but none worked.

what happens now is macro only goes through 1 file (strFilename2 when should be going through myfile1), then determines that myfile1 ="" so it keeps renewing the file already in the folder with the same name.

I am really not sure what is wrong here and how it get the second criteria mixed with the first one, and why it is not counting.

I appreciate all your help.
Jake

Ben. Van Johnson,

Thank you for your reply but that is not what I am looking to do; I understand the name statement but I am not renaming anything, and if any, I am trying to avoid overwriting the existing file.

What I am trying to accomplish is simple; counting files that meet the specific criteria.

Say you have a lot of document regarding tax. All named "tax" but say you want to put "2", "3", or "ver 2" and so on at the end of the file name. To accomplish this, you need to count the number of files with name starting "tax" in that folder and add the count + 1 at the end to come to file name "tax ver 2.pdf". This is what I am doing, or trying to do.

To explain my code, first part till the msgbox is checking if the directory exists, and if not, create one.

Second part till printing to pdf determines the file name based on the msgbox answer; Yes or No. For each answer, file name differs slightly. It worked perfectly till when I had to run the macro more than once a day for a same answer, in which case, need to save both files without overwriting one. "IF" statement sees if the file already exists or not, and if not, it is all good, but if it does, then that is when I start to have a problem.

By the way, changing "Else" to "Elseif" does not change my result.

Hope this clearer a little bit better.

Jake

Anybody...?

bumping it up...