比如，我自动在F盘生成了一个名为“1”的文件夹，

又在“1”的文件夹里用日期自动生成一个“2016年12月”文件夹

问题：我现在又想在“2016年12月”自动生成一个文件夹怎么办，“2016年12月”这个文件夹代码路径我不知道用什么来写。如下：

Dim mypath As String, a As String, n As Integer, myname As String

mypath = "F:\" & VBA.Format(1) ‘自动生成名字为1的文件夹

If Dir(mypath, vbDirectory) = "" Then VBA.MkDir mypath

ChDrive mypath

ChDir mypath

mypath = "F:\1\" & VBA.Format(Date, "yyyy年mm月") ’自动生成名字为2016年12月的文件夹

If Dir(mypath, vbDirectory) = "" Then VBA.MkDir mypath

ChDrive mypath

ChDir mypath

‘如下，前面两个文件夹都有路径自动生成，而这下面这个路径是？yyyy年mm月 这个要怎么写

mypath = "F: \1\ 这里要怎么表示，或是还有其它方法 \" & VBA.Format(Date, "yyyy年mm月dd日")

If Dir(mypath, vbDirectory) = "" Then VBA.MkDir mypath

ChDrive mypath

ChDir mypath

在线等了，谢谢。