vb 创建多级文件夹

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long

Sub CreateDir()
MakeSureDirectoryPathExists "D:/Program Files/AutoCAD 2006/Express/"
End Sub