All pastes #163782 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-09-07 21:50 UTC
rendered paste body
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