Code to create New Folder (if doesn't exist) and then Save Workbook to folder

Hello all,

I am a newbie, so please be kind. I have been trying to correct this code for 2 days, and must admit I need help. I'm sure it's something simple, but can't crack it.

I am using Excel 2007 and saving to a shared drive.

I'm attempting to create a new folder, based on specific information in the workbook. If the folder already exists, I just need the workbook saved.
The workbook also needs to be saved/named based on specific information in the workbook.

The current code I have is:

Please Login or Register  to view this content.

Right now I'm receiving a error 13 type mismatch.
Earlier today I was receving a error 1004 Method SaveAs of Workbook failed

Thank you in advance for your assistance.
Jenn

I would at least change it to this:

Please Login or Register  to view this content.

***cancelled***

Try using filesystemobject instead of Dir:

Please Login or Register  to view this content.

Also I should note that your declarations are a bit off in that you have to declare each variable by itself or else Excel will consider it a variant. So in your example, evnfol and newfol are variants, while sfile is the only one being declared as a string. This syntax is different from other programming language where you can create group declarations.

Hope this helps.

abousetta

Try this modified code:

Please Login or Register  to view this content.

It will fail if you don't have a folder called "SCRATCH\Events\2013\" residing on your desktop because it won't make several levels of folders but the code can be amended if needed.

Let me know if this works for you.

abousetta

Hi Jenn,

OK, let's test step by step...

Please Login or Register  to view this content.

Does this work? and is the path in the MessageBox correct?

abousetta