求教各位大虾！怎么建立文件！

[starring]

我想在一个指定的硬盘上建立一个依当前年份命名的文件夹，在年份文件夹下建立一个当前月份的文件夹，切文件夹数随着月份增加而增加，例如，当前是11月，有一个依11命名的文件夹，到了12月又会有一个依12命名的文件夹。请问这个过程怎么实现？谢谢！

[ytuliangzi]

Dim DirName_M As String = Now.Month
Dim DirName_Y As String = Now.Year
Dim Str_path As String = "D:\test\"
If Directory.Exists(Str_path & DirName_Y) = False Then
Directory.CreateDirectory(Str_path & DirName_Y)
End If
Str_path &= DirName_Y & "\"
If Directory.Exists(Str_path & DirName_M) = False Then
Directory.CreateDirectory(Str_path & DirName_M)
End If

[starring]

谢谢！