请问，在f1中如何保存当前文件

[liujiaqiang]

请问，在f1中如何保存当前文件

[runsoft]

//---------------------------------------------
// Function : uf_file_saveas
// Describe : 另存文件为
//---------------------------------------------

String Ls_Report_Name,Ls_Report_FullName,Ls_TempDir
Integer Li_RetCode,Li_File

//打开保存文件对话框
li_RetCode = GetFileSaveName("保存",&
Ls_Report_FullName,Ls_Report_Name,"vts",&
"Formula One (*.vts),*.vts")

If Li_RetCode = 1 Then
If FileExists( Ls_Report_FullName) Then
li_RetCode = MessageBox("保存",&
"文件" + Ls_Report_Name + " 已经存在，覆盖当前文件？", &
Question!,YesNo!)
If Li_RetCode = 2 Then
// save nothing
Return 0
End If
End If

This.Object.Write(Ls_Report_FullName,F1FileFormulaOne6)
iw_master.title = Ls_Report_Name
This.Object.FileName = Ls_Report_Fullname
This.Object.Modified = False
Else
// no file name inputed
Return 0
End If

Return 1