Error writing path into a text file

Question

Latest edit to my text edit script is trying to remember the last opened file using a .txt "preference" file in a script bundle.
Before I click run I edit the Pref file and put Default. I then click Open last. It then does what it should (alot like my other post) but gets an error at the last write in the script, writing the file path to the pref file. This is taken from the event viewer:
write alias "Macintosh HD:Users:Richard:Documents:Other Text Files:Untitled.txt" to file "Macintosh HD:Users:Richard:Library:Scripts:Richard's Text Editor 3.scptd:Contents:Resources:Prefs:Save Location Pref.txt" as text
Result:
error "Can’t make alias \"Macintosh HD:Users:Richard:Documents:Other Text Files:Untitled.txt\" into type string." number -1700 from alias "Macintosh HD:Users:Richard:Documents:Other Text Files:Untitled.txt" to string
Script here:
display dialog "Open last saved or choose file" buttons {"Open last", "Open other"} default button 2
if button returned of result is "Open last" then
set val1 to (read POSIX file "/Users/Richard/Library/Scripts/Richard's Text Editor 3.scptd/Contents/Resources/Prefs/Save Location Pref.txt")
if val1 is "Default" then
EditFile("no")
else
EditFile(val1)
end if
else
EditFile("no")
end if
on EditFile(val2)
if val2 is "no" then
set val3 to (choose file with prompt "Please select a .txt file:
To save a text file as .txt in TextEdit, click 'Make Plain Text' in the Format menu and save the file.")
--Get file path.
else
set val3 to val2
end if
if (get eof val3) is 0 then --Read doesn't like eof (end of file) to be 0 bytes.
set val4 to ""
else
set val4 to read val3 --Read file before it gets erased.
end if
open for access val3 with write permission --Open file.
set eof val3 to 0 --Erase file.
repeat
display dialog "Edit your text." default answer val4 buttons {"Revert", "Save"}
set {val5, val6} to {text returned of result, button returned of result}
if val6 is "Save" then
write val5 to val3
exit repeat
else
write val4 to val3
end if
end repeat
--Write to file giving old data as default (to give the same affect as as read and edit).
close access val3
open for access POSIX file "/Users/Richard/Library/Scripts/Richard's Text Editor 3.scptd/Contents/Resources/Prefs/Save Location Pref.txt" with write permission
set eof POSIX file "/Users/Richard/Library/Scripts/Richard's Text Editor 3.scptd/Contents/Resources/Prefs/Save Location Pref.txt" to 0
write val3 to POSIX file "/Users/Richard/Library/Scripts/Richard's Text Editor 3.scptd/Contents/Resources/Prefs/Save Location Pref.txt" as text
close access POSIX file "/Users/Richard/Library/Scripts/Richard's Text Editor 3.scptd/Contents/Resources/Prefs/Save Location Pref.txt"
end EditFile
Thanks, I can guess this is a simple fix like the others.

Answer 1

Hmmm.
First I checked it was all OK without POSIX and it works:
display dialog "Open last saved or choose file" buttons {"Open last", "Open other"} default button 2
if button returned of result is "Open last" then
set val1 to alias (read file "Macintosh HD:Users:Richard:Library:Scripts:Richard's Text Editor 3.scptd:Contents:Resources:Save Location Pref.txt")
--Read pref file to find out path of last edited file.
if val1 is "Default" then
EditFile("no")
else
EditFile(val1)
end if
else
EditFile("no")
end if
on EditFile(val2)
if val2 is "no" then
set val3 to (choose file with prompt "Please select a .txt file:
To save a text file as .txt in TextEdit, click 'Make Plain Text' in the Format menu and save the file.")
--Get file path.
else
set val3 to val2
end if
if (get eof val3) is 0 then --Read doesn't like eof (end of file) to be 0 bytes.
set val4 to ""
else
set val4 to read val3 --Read file before it gets erased.
end if
open for access val3 with write permission --Open file.
repeat
set eof val3 to 0 --Erase file.
display dialog "Edit your text." default answer val4 buttons {"Revert", "Save"}
set {val5, val6} to {text returned of result, button returned of result}
if val6 is "Save" then
write val5 to val3
exit repeat
else
write val4 to val3
end if
end repeat
--Write to file giving old data as default (to give the same affect as as read and edit).
close access val3
open for access file "Macintosh HD:Users:Richard:Library:Scripts:Richard's Text Editor 3.scptd:Contents:Resources:Save Location Pref.txt" with write permission
set eof file "Macintosh HD:Users:Richard:Library:Scripts:Richard's Text Editor 3.scptd:Contents:Resources:Save Location Pref.txt" to 0
write (val3 as string) to file "Macintosh HD:Users:Richard:Library:Scripts:Richard's Text Editor 3.scptd:Contents:Resources:Save Location Pref.txt" as text
close access file "Macintosh HD:Users:Richard:Library:Scripts:Richard's Text Editor 3.scptd:Contents:Resources:Save Location Pref.txt"
--Save path of edited file to pref file.
end EditFile
But change that 3rd line to:
set val1 to alias (read file (path to resource "Save Location Pref.txt"))
gets:
Can’t make file (alias "Macintosh HD:Users:Richard:Library:Scripts:Richard's Text Editor 3.scptd:Contents:Resources:Save Location Pref.txt") into type file.
P.S. Sorry bout question in answered post again.