[求助]：如何建立文件夹

春节到

原文件夹dir_path = d:\olddir1\olddir2\
现在要建立一个新文件夹d:\olddir1\olddir2\newdir1\
可以用
dir_path = dir_path & "newdir1\"
MkDir dir_path
但如果是
d:\olddir1\newdir1\newdir2\   如何解决？
因为，olddir1不一定存在，或者newdir1不一定不存在。也就是说，因为MkDir 只能建立新文件夹，这就需要判断olddir1, newdir1是否存在，如何做？

雪山飞狐(lzh)

Dim fldName As String
fldName = "c:\1"
Dim fso As New FileSystemObject
If fso.FolderExists(fso.GetParentFolderName(fldName)) Then
fso.CreateFolder fldName
End If

mlr_nj

要不要引用fso？