VB创建文件夹

If Dir("D:Program FilesAutoCAD 2006Express", vbDirectory) = "" Then '判断文件夹是否存在
MkDir ("D:Program FilesAutoCAD 2006Express") '创建文件夹 msgbox ("创建完毕")
else msgbox("文件夹已在") endif