Newcomer - Illustrator script save to designated folder - problems

Hello i am fairly new to applescript and am having problems getting this script to work correctly in illustrator.

Basically the script should create a folder on the server and then rename it to the same as the document, then save the document into the folder.

I can get the script to create the folder but not to save the document into it.

It would be useful to if the script could ignore the suffix from the file when creating the folder.

Any help would be appreciated

tell application “Finder”
mount volume “afp://xx.x.x.x/COLLATION/”
end try
end tell

global myfolder

set myfolder to “COLLATION:Written:”

tell application “Adobe Illustrator 10.0.3”

set docname to name of document 1 as string
set Finalpath to myfolder & docname

tell application "Finder"
	make new folder at folder myfolder with properties {name:docname}
end tell

tell application "Adobe Illustrator 10.0.3"
	convert to paths (every text art item of document 1)
end tell

set mynewfile to myfolder & name of document 1 as string
save document 1 in file mynewfile as Illustrator ¬
	with options {class:Illustrator save options, compatibility:Illustrator 8, flatten output:preserve appearance}

end tell