-- Functions returns false if error occurs. 
-- myFolder - name of folder (group)
-- myShortcut - name of shortcut (program item)
-- myExe - name of exe file
-- myIcon - name of icon

to get createFolder myFolder
	clear sysError
	executeRemote "[createGroup (" & myFolder & ")]" application  "progman" topic "progman"
	if item 1 of sysError <> "Ok"
		myText = "Can't create folder" && myFolder
		request myText
		return false
	end if
	return true
end

to get createShortcut myFolder, myShortcut, myExe, myIcon
	clear sysError
	executeRemote "[showGroup (" & myFolder & ",1)]" application  "progman" topic "progman"
	executeRemote "[replaceItem (" & myShortcut & ")]" application  "progman" topic "progman"
	executeRemote "[addItem (" & myExe & "," & myShortcut & "," & myIcon & ")]" application  "progman" topic "progman"
	if item 1 of sysError <> "Ok"
		myText = "Can't create shortcut" && myShortcut && "in folder" && myFolder
		request myText
		return false
	end if
	return true
end


to get deleteShortcut myFolder, myShortcut
	clear sysError
	executeRemote "[deleteItem (" & myShortcut & ")]" application  "progman" topic "progman"
	if item 1 of sysError <> "Ok"
		myText = "Can't delete shortcut" && myShortcut && "in folder" && myFolder
		request myText
		return false
	end if
	return true
end

to get deleteFolder myFolder
	clear sysError
	executeRemote "[deleteGroup (" & myFolder & ")]" application  "progman" topic "progman"
	if item 1 of sysError <> "Ok"
		myText = "Can't delete folder" && myFolder
		request myText
		return false
	end if
	return true
end

-- For example:
createFolder("CompactBook")

createShortcut("CompactBook", "Russian Cookbook", "d:\rcook.exe", "d:\rcook.ico")

deleteShortcut("CompactBook", "Russian Cookbook")

deleteFolder("CompactBook")