求救

Question

有一个combo1和DTpicker1的控件，要在D盘目录下创建以combo1里的内容命名的文件夹，再在这个文件夹下创建以DTpicker1日期命名的文件夹，就是有两层目录
这个语句该怎么写？
结果就是：
D:\“combo1命名的目录”\“DTPicker1日期命名的目录”
要是再多创建几个以控件内容命名的子目录，该怎么写这个语句？

Answer 1

MkDir "D:\" & Combo1.Text
MkDir "D:\" & Combo1.Text & "\" & DTPicker1

Answer 2

MkDir "D:\" &  combo1.text
MkDir "D:\" &  combo1.text & "\" & format(DTPicker1.value,"你要的format“

Answer 3

Private Sub Command1_Click()
MkDir "D:\" & Combo1.Text
MkDir "D:\" & Combo1.Text & "\" & DTPicker1.Value
End Sub

Answer 4

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As LongPrivate Sub Command1_Click()
MakeSureDirectoryPathExists "D:\" & Combo1.Text & "\" & DTPicker1.Value
End Sub