VBS递归创建多级目录文件夹的方法

    核心代码

    
    CreateFolders "d:\jb51test\1\2\3\4\5" 
    
    Function CreateFolders(path)
    	Set fso = CreateObject("scripting.filesystemobject")
    	CreateFolderEx fso,path
    	set fso = Nothing
    End Function
    
    Function CreateFolderEx(fso,path)
    	If fso.FolderExists(path) Then 
    		Exit Function
    	End If
    	If Not fso.FolderExists(fso.GetParentFolderName(path)) Then
    		CreateFolderEx fso,fso.GetParentFolderName(path)
    	End If
    	fso.CreateFolder(path)
    End Function

    经过测试运行没问题

    文中的两个函数链接CreateFolder 方法GetParentFolderName 方法