on FileName FromFileR
tFileNa=""
--利用一个循环将文件全称中的路径提取出来
repeat with CharN=FromFileR.char.count down to 1
--倒序检查第一个“\”出现的时候就是文件名结束的地方
if FromFileR.char[CharN]="\" then
--或者文件名称
tFileNa=FromFileR.char[charN+1..FromFileR.length]
exit repeat
end if
end repeat
--获取用户保存目标文件，默认文件名设置为tFileNa
FileXtra=New(xtra "FileXtra3")
CopyToF=FileXtra.fx_FileSaveAsDialog("C:\",tFileNa,"文件另存为...",1)
--如果用户取消操作（此时CopyToF=""），则不执行复制任务
if CopyToF<>"" then
--将文件tFileNa复制到用户选择的保存文件处
tResult=FileXtra.fx_FileCopy(FromFileR, CopyToF)
return tResult
end if
end

这是原来用的代码，没问题可现在提示错误，高手看看那里出错了。
会不会和用的Director版本有关，我原来用的8.5现在用的10.1