Creating Folders in Other Folders based on Cell Values

[mikey2322]

Hi All,

I have a directory on my computer C:\Test\ with 10 or more folders in it. I have the folder names in Column A (for example Test1 - Test10) of a spreadsheet name Folder Factor.xls.

I would like some VBA code to go down the rows and find the folder in the C:\Test\ directory based on the folder name in Column A and create another folder within it based on a new folder name in Column B (for example TestA - TestJ). i.e. the directory tree for the first record would look like C:\Test\Test1\TestA\

Any help would be greatly appreciated!

Cheers,

Mike

 

[VoG]

Possibly

Sub MakeFolders()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    MkDir "C:\Test" & "\" & Range("A" & i).Value & "\" & Range("B" & i).Value
Next i
End Sub

 

[MrsGKL]

Hi,

Lookup the createfolder method.


Dim FSO as Object
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim MyPath as String
MyPath = "c:\temp\myfolder\"

FSO.CreateFolder MyPath

nigh night