Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long
Sub CreateDir()
MakeSureDirectoryPathExists "D:/Program Files/AutoCAD 2006/Express/"
End Sub
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long
Sub CreateDir()
MakeSureDirectoryPathExists "D:/Program Files/AutoCAD 2006/Express/"
End Sub