CreateFolders "d:/jb51test/1/2/3/4/5" Function CreateFolders(path)	Set fso = CreateObject("scripting.filesystemobject")	CreateFolderEx fso,path	set fso = NothingEnd FunctionFunction 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