Create a folder path recursively. - Cacher Snippet

6/12/2013 - 2:46 PM

Create a folder path recursively.

Create a folder path recursively.

createfolderpath.vbs

'Create folder path recursively
Function GeneratePath(pFolderPath)
  GeneratePath = False
	If Not wFile.FolderExists(pFolderPath) Then
		If GeneratePath(wFile.GetParentFolderName(pFolderPath)) Then
			GeneratePath = True
			Call wFile.CreateFolder(pFolderPath)
		End If
	Else
		GeneratePath = True
	End If
End Function