Recursively Create Folder/Directory in VB Script

In some cases you may want to create a folder structure like the following "C:\Folder-1\Folder-2\Folder-3\Folder-4" and all the folders in between may not exist (ie, create folders recursively). VB Script doesn't have any built-in function to create folders like this. But by using a simple loop we can create any folder structure. Following code snippet will create a folder structure like this.

CreateFolders("C:\Folder1\Folder2\Folder3\Folder4")

Function CreateFolders(Path)
	Dim FS
	Dim FolderArray
	Dim Folder
	
	Set FS = CreateObject("Scripting.FileSystemObject")
	FolderArray = Split(Path, "\")

	For i=0 to UBound(FolderArray) Step 1
		If i <> 0 Then
			Folder = FolderArray(i-1)
		End If
		
		Folder = Folder & FolderArray(i) & "\"
		
		If FS.FolderExists(Folder) Then
			'Do Nothing
		Else
			FS.CreateFolder(Folder)
		End If
		
		FolderArray(i) = Folder
	Next

	WScript.Echo("Folders created")
End Function

Powered by Bullraider.com