当前位置 主页 > 服务器问题 > win服务器问题汇总 >

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

    栏目:win服务器问题汇总 时间:2019-10-21 15:29

    核心代码

    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 方法。