If Dir("D:\Program Files\AutoCAD 2006\Express\", vbDirectory) = "" Then '判断文bai件夹是否存在du

MkDir ("D:\Program Files\AutoCAD 2006\Express\") '创建zhi文件夹 msgbox ("创建完毕dao")

else msgbox("文件夹已在") endif

</SPAN>

判断文件夹是否存在失败的原因是  路径后面必须加 , vbDirectory - 文件不需要，文件夹必须带

VB多级文件夹保存

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp" (ByVal PathName As String) As Long

MakeSureDirectoryPathExists "C:\111\222\333"   ‘注意 必须是 \’ 且只保存到最后一个 \之前的 所以最后必须加\