Create Directory Structure from Cell Value.
 

I was able to create a partial structure from information in a
previous post.

Post Follows:
From user: Farhad


Dim Fldr As Scripting.FileSystemObject
Set Fldr = New Scripting.FileSystemObject
If Fldr.FolderExists("C:\Reports\2007-09-18") Then
Else
Fldr.CreateFolder "C:\Reports\2007-09-18"
End If


make sure you have referred to MicroSoft Scripting Runtime from
ToolsReferences


Thanks,
--
Farhad Hodjat

Question:
Assuming that the value of Cell D2 is a date in the format 12/2/07
18:39.

I would like to create the following file structure from that
information

Drive:\Place Where Data is Stored\Year\Month (two digit) Month (Verbal)
\Day (two digit)

So with the data from Cell D2 it would look like this:

Drive:\Place Where Data is Stored\2007\12 December\02\

I have used the following adjustment to the data and can't seem to get
the full file structure.

"Drive:\Place Where Data is Stored\" & Format(Range("D2").Value,
"YYYY") & "\" & Format(Range("D2").Value, "mm") & " " &
Format(Range("D2").Value, "MMMM") &"\" & Format(Range("D2").Value,
"dd")

With the previous formula I either get an error or nothing happens at
all. The workbook where the data is contained is the active workbook.