create folder based on cell content

[Arie Bos]

I want to create a folder in below 'Sales' folder, named after the text value located in a cell named 'CompanyName'. So if the company name in that cell is XYZ, I want to have the new folder created in 'Sales' called XYZ. I am missing something here, but can't see where or what...

Public Function vDir() As String
    vDir = Environ("userprofile") & "\Documents\Soniq\Sales\" & Range("CompanyName") & "\"
End Function

Sub ProjectFolder()
    Dim vDir As String, NewFldr3 As String
        NewFldr3 = Range("CompanyName")

    If Dir(vDir & NewFldr3, vbDirectory) = "" Then
        MkDir vDir & NewFldr3
    End If
End Sub

 

[RayFrye]

This should get you headed in the right direction.

Public Function vDir() As String
vDir = Environ("userprofile") & "\Documents\Soniq\Sales\" & Range("CompanyName") '''''''''''' not needed & "\"
End Function

Sub ProjectFolder()
''''''''''''''''''''''' not needed screws up the vDir function Dim vDir As String, NewFldr3 As String
'''''''''''' Not needed vDir has the new folder name NewFldr3 = Range("CompanyName")

'''wrong If Dir(vDir & NewFldr3, vbDirectory) = "" Then

If Dir(vDir, vbDirectory) = "" Then ''''Folder in the vDir function
MkDir vDir '''''''' not needed as it is in vDir & NewFldr3
End If
End Sub

 

[Arie Bos]

RayFrye, Thank you for stripping this down to the core essence. It shows that as a beginner one sometimes get confused by too many elements...

This is how I understand your corrections, and although it seems so ligical now, a new folder is not yet being made in 'Sales' with the name in 'CompanyName'.

Public Function vDir() As String
    vDir = Environ("userprofile") & "\Documents\Soniq\Sales\" & Range("CompanyName")
End Function
Sub ProjectFolder()
     If Dir(vDir, vbDirectory) = "" Then
        MkDir vDir
    End If
End Sub

 

[Arie Bos]

After some more searching and trying, this one worked OK:

Public Function vDir() As String
    vDir = Environ("userprofile") & "\Documents\Soniq\Sales\" & Range("CompanyName")
End Function
Sub CommandButton4_Click()
    
Dim NewDir As String
Dim ChkDir As String

NewDir = Range("CompanyName")
ChkDir = Dir(vDir, vbDirectory)
     
If ChkDir <> "" Then
    MsgBox ChkDir & " folder exists"
Else
    MkDir NewDir
    MsgBox "Created: " & NewDir
End If
End Sub