Create a folder

[TeacherEric]

Hi,

I have found a way to create a folder then to save my file to that folder. However, if the folder already exists I get an error.

Can someone show me how create a code that will:

1) Check to see if a folder is there already.
2) If the folder is there - ignore the create and just save it
3) If the folder isn't there - create it – save it.

My folder will always be called the same thing "C:\Gradebooks"

My filename will be based off a cell reference:
sheets("information").range("K151")

Thank you very much.
TeacherEric

 

[Norie]

Try this.

Sub CreateFldr()
    
    If Dir("C:\Gradebooks", vbDirectory) = "" Then
        MkDir "C:\Gradebooks"
        MsgBox "Folder created."
    Else
        MsgBox "Folder exists."
    End If

End Sub