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

If Dir("L:\1\",vbDirectory) = "" Then '判断文件夹是否存在
        MkDir ("L:\1\")   '创建文件夹
End If

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 技术第一，勿要不明理而盲目复制。希望各位可以观看代码得到启发。 这些代码是经过实践检验的，可以用的。 注：如果我侵犯了您的权益，请告知。看到您的告知后，我将及时作出处理。