--
-- Create a new folder.
--
-- Copyright (C) 1997 Dr. Charles R. Denham, ZYDECO.
--  All Rights Reserved.
--   Disclosure without explicit written consent from the
--    copyright owner does not constitute publication.

-- Version of 05-Sep-1997 16:51:19.
--
tell application "Finder"
	--
	set TESTING to 1
	set TESTING to 0
	if TESTING is 1 then
		set thePath to "priapus:AAA"
		set theNewFolder to "myNewFolder"
	end if
	--
	set theTarget to thePath & ":" & theNewFolder
	if not (exists item theTarget) then
		make new folder at folder thePath
		set name of folder "untitled folder" of folder thePath to theNewFolder
	end if
	--
end tell