镇场诗：吾心为他人，此智不私藏。学术有小成，愿帮大家忙。
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Dim d As String
    d = Format(Now(),"yyyy-mm-dd")
    
If Dir("D:" & "\C语言课件---" & d,vbDirectory) = "" Then     '如果文件夹没有存在那么，就创建。如果存在了就不创建了
    MkDir "D:" & "\C语言课件---" & d
End If

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 技术第一，勿要不明理而盲目复制。希望各位可以观看代码得到启发。 这些代码是经过实践检验的，可以用的。在做小程序的时候，网络上热爱分享知识的人给与了我很大的帮助。在网络上许多代码有错误，不能正确解决问题。 我在网络上查资料的时候，受了很多苦。现在通过我的博客，把我查找到的，经过校验的代码分享给大家。希望大家的自学路能够平坦一些。 注：如果我侵犯了您的权益，请告知。看到您的告知后，我将及时作出处理。