Creating Subfolders in VB2010? - vba

Question

I'm in the position of needing to make a bunch of folders for my PC so I decided to turn it in to a coding task. I've managed to make it so the user types in the location they want the folders to go into as well as each line of the other text box being the title for a new folder.
Here's the problem. I ideally would like to put multiple folders inside each folder without running the program again. The textbox would look something like this and would result in file 1,2 in folderA and file 3,4 in folderB;
FolderA
File 1
File 2
FolderB
File 3
File 4
Here is the code I've done so far.
Dim Address As String = TextBox1.Text
For i As Integer = 0 To RichTextBox1.Lines.Count - 1
My.Computer.FileSystem.CreateDirectory(Address + (RichTextBox1.Lines(i)))
Next
Do you know what I would have to add to my code so that it includes sub-folders?
(I haven't been learning long so I'm sorry if the answer is really obvious.)

Answer 1

#punintentional
The code below will do exactly what you asked for. You HAVE to make sure you have a reference set to the Microsoft Office Object Library. You do this by going to Tools>References and find the appropriate on. I designed the below code with Microsoft Office 12 Object Library. If you are using Office 2010, I think the Reference will be for Microsoft Office 14 Object Library.
Option Explicit
Public Sub DirectorySelect()
Dim diaFileDialog As FileDialog
Dim blDirSelected As Boolean
Dim strBaseDirectory As String
Dim strA_Dir As String
Dim StrB_Dir As String
' set up a MS Office file dialog box to select a folder/directory
Set diaFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
With diaFileDialog
.AllowMultiSelect = False ' user may only select one base folder
.Title = "Select the base director" ' title of the dialog box
blDirSelected = .Show ' the .show method will return false if the user does not select a directory
If blDirSelected = True Then ' a directory was selected
strBaseDirectory = .SelectedItems(1) ' put the directory into a variable
strBaseDirectory = strBaseDirectory & "\" ' the returned directory needs a trailing backslash
' These steps will jump to the other sub procedure to make the desired folders
MakeNewDir _
BaseDirectory:=strBaseDirectory, _
AddDirectory:="FolderA"
strA_Dir = strBaseDirectory & "FolderA" & "\"
MakeNewDir _
BaseDirectory:=strA_Dir, _
AddDirectory:="Folder1"
MakeNewDir _
BaseDirectory:=strA_Dir, _
AddDirectory:="Folder2"
MakeNewDir _
BaseDirectory:=strBaseDirectory, _
AddDirectory:="FolderB"
StrB_Dir = strBaseDirectory & "FolderB" & "\"
MakeNewDir _
BaseDirectory:=StrB_Dir, _
AddDirectory:="Folder3"
MakeNewDir _
BaseDirectory:=StrB_Dir, _
AddDirectory:="Folder4"
End If
End With
End Sub
Public Sub MakeNewDir(ByVal BaseDirectory As String, ByVal AddDirectory As String)
If Dir(BaseDirectory, vbDirectory) = vbNullString Then
MkDir BaseDirectory
End If
If Right(BaseDirectory, 1) <> "\" Then
BaseDirectory = BaseDirectory & "\"
End If
MkDir BaseDirectory & AddDirectory
End Sub