VB中新建文件夹的命令

Sub s()
    pth = "d:\test"'新建文件夹所在的路径
    fd = "a"'新建文件夹名称
    t = Dir(pth, vbDirectory)
    If t = "" Then MsgBox "路径不存在！": Exit Sub
    t = Dir(pth & "\" & fd, vbDirectory)
    If t <> "" Then MsgBox "文件夹已存在！": Exit Sub
    MkDir pth & "\" & fd
    t = Dir(pth & "\" & fd, vbDirectory)
    If t <> "" Then MsgBox "文件夹创建成功！"
End Sub

新建文件夹的名字是以当前系统的年月命名的，例如文件夹名格式为：200907，200908 ..等等，程序中要存储一些图片，要求把这些图片存在相应的文件夹中，这些图片也是以系统时间命名的，
我的程序代码：
Dim fso
Dim folder_month
Dim folder_year
folder_year = Year(Date)
folder_month = Month(Date)
Set fso = CreateObject("Scripting.filesystemobject") ‘运行到该句时如果文件夹已经存在的话，会出现错误，如何实现如果该月份的文件夹已经存在就不在执行新建语句，等新一月份开始时再新建一个文件夹

fso.CreateFolder (App.Path & "\" & folder_year & folder_month)
SavePicture Picture3.Image, App.Path & "\" & folder_year & folder_month & "\" & Format(Now, "yyyy_mmdd_hhmm_ss") & ".jpg"
问题补充：例如图片名是2009_0721_1702_41,该图片就存入200907

MKDIR "E:\STUDY\你要建立的文件夹名称"