生成路径递归

Function GeneratePath(pFolderPath)
	GeneratePath = False
	If Not objFSO.FolderExists(pFolderPath) Then
		If GeneratePath(objFSO.GetParentFolderName(pFolderPath)) Then
			GeneratePath = True
			Call objFSO.CreateFolder(pFolderPath)
		End If
	Else
		GeneratePath = True
	End If
End Function