VB中利用FSO在Windows下建立多级文件夹

如果想在程序中建立C:/A/B/C/D这个文件夹，而且C:/A、C:/A/B、C:/A/B/C是否已建立，尚不能确定，那么可以在模块中加入如下VB过程用于建立多级文件夹操作：

Public FSO As New Scripting.FileSystemObject

Public Sub MD(strDir As String)
Dim Pos As Integer
If Not FSO.FolderExists(strDir) Then
Pos = InStrRev(strDir, "/")
If Pos = 0 Then
Call MkDir(strDir)
Else
Call MD(Left(strDir, Pos - 1))
Call MkDir(strDir)
End If
End If
End Sub

为了能使用FSO，工程引用中需加入Microsoft Scripting Runtime。