VBA code to create a folder (if it doesn't already exist) based on cell values

[willow1985]

Hello,

I am hoping someone could help me write a certain code that can do the following:

If Cell D1 has text: "Update File Series"
Create a file in the directory specified in cell: Z1 and name it based on cell Y1.

If the file in this directory with this name does not exist, do not create and end sub.

So I suppose I want the code to not only run when Cell D1 has text: "Update File Series" but also check if the file already exists and then create it if it does not

I hope I am being clear. Thank you to anyone who can help with this!

 

[Logit]

"If the file in this directory with this name does not exist, do not create and end sub."

I think you cleared this up in the next line of your post .... but ... don't you mean "If the file already exists, don't re-create the file and then end the sub ?

 

[ER_Neha]

Please try this

Sub folder_exist_or_create()
Dim path As String
Dim folder As String
path = Range("Z1").Value & Range("Y1").Value
folder = Dir(path, vbDirectory)
If Range("D1").Value = "Update File Series" Then
    If folder = vbNullString Then
        VBA.FileSystem.MkDir (path)
        MsgBox "Folder created"
    Else
    MsgBox "Folder exist"
    End If
End If
End Sub

 

[willow1985]

Please try this

Sub folder_exist_or_create()
Dim path As String
Dim folder As String
path = Range("Z1").Value & Range("Y1").Value
folder = Dir(path, vbDirectory)
If Range("D1").Value = "Update File Series" Then
    If folder = vbNullString Then
        VBA.FileSystem.MkDir (path)
        MsgBox "Folder created"
    Else
    MsgBox "Folder exist"
    End If
End If
End Sub

I do not want a message box as I want the folder created in the background. We have users who use the spreadsheet who may get flustered over these messages lol

and to answer logit's question: Yes; If the file already exists, don't re-create the file and then end the sub without any prompt.

 

[ER_Neha]

I suppose you could have deleted it by yourself anyway I am sharing the code again I hope it works for you

Sub folder_exist_or_create()
Dim path As String
Dim folder As String
path = Range("Z1").Value & Range("Y1").Value
folder = Dir(path, vbDirectory)
If Range("D1").Value = "Update File Series" Then
    If folder = vbNullString Then
        VBA.FileSystem.MkDir (path)
    End If
End If
End Sub

 

[willow1985]

Was not sure if it needed an "Else" or if it could just be deleted. Still learning this.

Thank you for re-sharing