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。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!