HomeShare = WSHShell.ExpandEnvironmentStrings("%homeshare%")
HomeFolders = array("Excel Documents", "PowerPoint Documents","Word Documents")

if objFS.FolderExists(HomeShare) then
	for each Folder in HomeFolders
		if not objFS.FolderExists(HomeShare + "\" + Folder) then
			objFS.CreateFolder(HomeShare + "\" + Folder)
		end if
	next
end if