Creat folder and subfolder

[webdevptg]

Hi!

I am implementing a system that allows you to create a folder and subfolder based on the cell values.

There will be a root folder, inside this there will be a folder with the year (based on the date of cell B5), within this folder it creates a subfolder for the country based on the list available in cell B7, and finally creates the subfolder with the process number. Whenever there is a folder with the same process number, it will give a message if you want to delete and create a new one.

Download Sample: CreatFolder.xlsm

Thanks!

 

[Fluff]

And what is your question?

 

[webdevptg]

Sorry, I forgot

When creat a second process with a same year or same country, gives an error with a message "Path/File access error"

Oc

And what is your question?

 

[Fluff]

Ok, how about

Sub CreatFolder()
    'Variable declaration
    Dim wsBD As Worksheet
    Dim folderRoot, folderYear, folderCountry, folderProcess, pastaSeparador As String
       
    Dim blfolderRoot, blfolderYear, blfolderCountry, blfolderProcess As Boolean
    
    'Initialization variables
    Set wsBD = Sheets("Sheet1")
    
    folderRoot = wsBD.Range("B2").Value
    folderYear = folderRoot & Application.PathSeparator & Year(wsBD.Range("B5").Value)
    folderCountry = folderYear & Application.PathSeparator & wsBD.Range("B7").Value
    folderProcess = folderCountry & Application.PathSeparator & wsBD.Range("B9").Value
    
    
    blfolderRoot = Dir(folderRoot, vbDirectory) = ""
    blfolderYear = Dir(folderYear, vbDirectory) = ""
    blfolderCountry = Dir(folderCountry, vbDirectory) = ""
    blfolderProcess = Dir(folderProcess, vbDirectory) = ""

    'Checks if there is a root folder (network connection)
    If blfolderRoot Then MkDir (folderRoot)
    If blfolderYear Then MkDir (folderYear)
    If blfolderCountry Then MkDir (folderCountry)
    If blfolderProcess Then MkDir (folderProcess)
    
End Sub

 

[kweaver]

Very interesting subroutine. You never cease to amaze!
(Side comment: I especially loved "pastaSeparador")

 

[Fluff]

That's actually the OP's code, I just changed the bit at the end with the if statements.

 

[kweaver]

That's actually the OP's code, I just changed the bit at the end with the if statements.

I thought you were doing some tongue in cheek statement.
Don't think the OPs code works without a string assignment for that variable...true?

 

[webdevptg]

The code works fine...

The code already has more instructions, copies a folder shared on the network with other subfolders and with some word and excel files renamed.

Finally, I need to do the following, the word files are institutional models, I need to pass the contents of some cells to specific areas of the documents and also an image for the footer ...

I've been looking here on the forum, but I just find putting content in an empty file and the image at the beginning of the document ...

Any tips ???

 

[Fluff]

As that is a totally different question, you will need to start a new thread. Thanks

 

[webdevptg]

Thanks