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