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。