#22002/4/1 9:29:04
举个实际的例子
savefile = new(xtra "FileIO")
file_name=displaySave(savefile, "保存", "s1.txt")
createFile(savefile, file_name)
openFile(savefile, file_name, 2)
sta=status(savefile)
if sta=0 then
writeString(savefile, savelist)
else
alert error(savefile,sta)
end if
closeFile(savefile)
--savelist中是要保存的内容