Create Sub Directories From Cell Values

Re: Create Sub Directories From Cell Values

see whether
http://www.cpearson.com/excel/MakeDirMulti.htm
is of any help.
Use it maybe thus:

mypathname = "C:\" & [A1] & "\" & [B1] & "\" & [C1] & "\" & [D1] & "\" & [E1]
MakeDirMulti (mypathname)

the names of folders were in cells A1 to E1

p45cal

Re: Create Sub Directories From Cell Values

Include the existing path and add the desierd sub directory

examples:

MkDir "C:\Category\Year"
MkDir "C:\Category\Year\Series"
MkDir "C:\Category\Year\Series\Month"
MkDir "C:\Category\Year\Series\Month\Bimonthly"

Re: Create Sub Directories From Cell Values

From VBA help.

Quote

If no drive is specified, MkDir creates the new directory or folder on the current drive.

Re: Create Sub Directories From Cell Values

This code will test for the existance of a subdirectory specified in a cell on a worksheet. If it does not exist then it will be created.

' Assume a Directory string is in cell A1 such as
    '"C:\Category\Year" or "C:\Category\Year\Series"
    If Dir(Range("A1"), vbDirectory) = "" Then MkDir Range("A1")

[hr]*[/hr] Auto Merged Post;[dl]*[/dl]Creates a new directory or folder.
Syntax
MkDir path
The required path argument is a string expression that identifies the directory or folder to be created. The path may include the drive. If no drive is specified, MkDir creates the new directory or folder on the current drive.

The MkDir VBA function will make a sub directory of the last named subdirectory in the path argument. It first attempts to find an existing path (less the named subdirectory) to be created. If this path does not exist the function will fail. The following procedure will check for each subdirectory in the path and, if not found, will create it. In other words it will build the path.

Sub BuildPath()
    'This procedure will build a chain of sub directories
    ' Assume a Directory string is in cell A1 such as
    '"C:\Category\Year" or "C:\Category\Year\Series"


    Dim SubDirectories() As String
    Dim i As Integer
    Dim SubDirBuild As String
    
    SubDirectories = Split(Range("A1"), "\")
    
    'If Directory specified then place at begining of string otherwise
    'the current Directory will be used
    If Right(SubDirectories(0), 1) = ":" Then SubDirBuild = SubDirectories(0)
    
    'Add each subdirectory to string and try to make a subdirectory
    For i = LBound(SubDirectories) + 1 To UBound(SubDirectories)
        SubDirBuild = SubDirBuild & "\" & SubDirectories(i)
        MsgBox SubDirBuild
        On Error Resume Next
        MkDir SubDirBuild
    Next i


End Sub

Re: Create Sub Directories From Cell Values

Quote from Bill Rockenbach;394919

This code will test for the existance of a subdirectory specified in a cell on a worksheet. If it does not exist then it will be created.

Code

' Assume a Directory string is in cell A1 such as
    '"C:\Category\Year" or "C:\Category\Year\Series"
    If Dir(Range("A1"), vbDirectory) = "" Then MkDir Range("A1")

[hr]*[/hr] Auto Merged Post;[dl]*[/dl]Creates a new directory or folder.
Syntax
MkDir path
The required path argument is a string expression that identifies the directory or folder to be created. The path may include the drive. If no drive is specified, MkDir creates the new directory or folder on the current drive.

The MkDir VBA function will make a sub directory of the last named subdirectory in the path argument. It first attempts to find an existing path (less the named subdirectory) to be created. If this path does not exist the function will fail. The following procedure will check for each subdirectory in the path and, if not found, will create it. In other words it will build the path.

Code

Sub BuildPath()
    'This procedure will build a chain of sub directories
    ' Assume a Directory string is in cell A1 such as
    '"C:\Category\Year" or "C:\Category\Year\Series"


    Dim SubDirectories() As String
    Dim i As Integer
    Dim SubDirBuild As String
    
    SubDirectories = Split(Range("A1"), "\")
    
    'If Directory specified then place at begining of string otherwise
    'the current Directory will be used
    If Right(SubDirectories(0), 1) = ":" Then SubDirBuild = SubDirectories(0)
    
    'Add each subdirectory to string and try to make a subdirectory
    For i = LBound(SubDirectories) + 1 To UBound(SubDirectories)
        SubDirBuild = SubDirBuild & "\" & SubDirectories(i)
        MsgBox SubDirBuild
        On Error Resume Next
        MkDir SubDirBuild
    Next i


End Sub

Display More

Display More

Excellent codes! Thank you very much, Bill Rockenbach.