Not getting exact result while creating directory in vba

[Gautham A]

Im writing a VBA code to check if a folder exists and if the folder exists just paste the Excel sheet. If the folder doesn't exist create a new folder in run time and save a sheet in that folder.

Code:
If(Len(Dir("C:\Users\Acer\Desktop\Report",vbdirectory))=0 Then
MkDir "C:\Users\Acer\Desktop\Report"
Activeworkbook.saveas filename:="C:\Users\Acer\Desktop\Report\file.xlsx", File format:=51
Else
filename:="C:\Users\Acer\Desktop\Report\file.xlsx", File format:=51
End If

The code works fine for the first time to create a new folder and save the Excel sheet. But on other instances it is not saving the file in the path.

 

[Logit]

Perhaps it is saving the file ... but it is overwriting the previous file ?

 

[Gautham A]

I deleted all the files in that folder and also tried it. But still I'm not able to save again

 

[Fluff]

You aren't saving the file inside the else, it should be

Else
ActiveWorkbook.Saveas filename:="C:\Users\Acer\Desktop\Report\file.xlsx", File format:=51
End If

 

[Gautham A]

Apologies fluff this is a typing mistake by me here. Actually I saved it inside the else as well. But every time the loop doesn't come to the else part. The if condition becomes true even if the folder exists already

 

[Fluff]

If the folder exists & it still went to create the folder you would get an error.

 

[Gautham A]

How should I write code for this?
If the folder exists just save the Excel file in there and if the folder doesn't exist create a folder and save the file in the created folder

 

[Fluff]

That's what your code does.

 

[Gautham A]

Let us say the folder exists, then if part of the code should become false, but Everytime it becomes true. Any reason?

 

[Fluff]

Let us say the folder exists, then if part of the code should become false

That's correct & it's what happens when I run your code.
If the folder exists do you get any error messages?