VBA-判断目录下的文件夹是否存在，不存在就新建该文件夹

判断D盘下，名为 changeAfter_Files 的文件夹是否存在，如果不存在就新建一个名为 changeAfter_Files 的文件夹

Sub judgeFile()
    Dim resFolder
    resFolder = Dir("D:\changeAfter_Files", vbDirectory)   '判断路径为"D:\changeAfter_Files"的文件夹是否存在
    '如果不存在，就新建一个
    If resFolder = "" Then
        MkDir ("D:\changeAfter_Files")
    End If
End Sub