VBS遞歸創(chuàng)建多級目錄文件夾的方法

來源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

核心代碼

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

經(jīng)過測試運(yùn)行沒問題

文中的兩個(gè)函數(shù)鏈接CreateFolder 方法與GetParentFolderName 方法。

上一篇：ubuntu安裝vbox虛擬機(jī)的教程圖解

欄目：vb

下一篇：WINDOWS特有的消息常量標(biāo)識符(vb,vbs常用)

本文標(biāo)題：VBS遞歸創(chuàng)建多級目錄文件夾的方法

本文地址：http://www.jygsgssxh.com/a1/vb/7087.html

更多vb