VB创建文件夹

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