How to create a folder in an specific directory with the name on specific cell?

[SSF1590]

Hello,

I am trying to create a code that allows me to create a folder in an specific directory with folder name on textbox1 and if this folder is already created in that directory, it does not allow to create another with the same name. As I am very new to Excel VBA, can you please help me with this code? I do not have any so far, nor I can think on any.

Thank you very much.

 

[alansidman]

Look here: https://www.thesmallman.com/create-folder-with-vba and

here

https://www.extendoffice.com/documents/excel/4182-excel-check-if-folder-exists.html#a1

 

[SSF1590]

Hi, thank you very much for your contribution.

I am not able to find the code that I need.

So far, I found the below, but it is not creating the folder at all, it does not show me error, it just does not create the folder. Can you please help me?

Dim NewFolder As String
Dim path As String


NewFolder = TextBox1.Text
path = "C:\Users\Anahi\Desktop\PCAR Project\Folders" & NewFolder


With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(path) Then .CreateFolder path
End With

 

[alansidman]

Does not look like you followed the instructions in the links.

 

[Fluff]

Try adding a \ as shown

path = "C:\Users\Anahi\Desktop\PCAR Project\Folders[COLOR=#ff0000]\[/COLOR]" & NewFolder

 

[SSF1590]

I have added \ and it still does not create the folder and gives me the failure message as if the folder already exists.

 

[Fluff]

What failure message?

 

[SSF1590]

It shows me the MsgBox in my code "Folder creation failure"

Dim fso As Scripting.FileSystemObject
Dim newFolder As String
Dim path As String


newFolder = TextBox1.Text


path = "C:\Users\SSF1590\Desktop\Tara Project\Folders" & newFolder


Set fso = New Scripting.FileSystemObject


If Not fso.FolderExists(path) Then
fso.CreateFolder (path)


MsgBox ("Folder Created Sucessfully")
Else
MsgBox ("Folder Creation failure")
End If

 

[Fluff]

That code does not have the final \ in it.
Also are you sure that the folder doesn't already exist?

 

[SSF1590]

I have corrected it and added \ but still no folder created. Yes, I am sure the folder does not exist. I have looked everywhere and the folder does not exist.