在PB中得到环境变量，并创建临时文件夹。

//说明 ：尝试得到系统的临时文件夹，如果失败，就是用当前目录为临时文件夹
//ole_word为OleControll类型，ole连接类型为MSWord
//n_atrrib.uf_saveword(worddata,ls_err)为ole_word服务的对象，完成把数据写入数据库中
//n_cst_filesrvwin32 n_file是PFC中文件控制对象
Blob worddata
String ls_err,ls_values[],ls_tempdir,ls_path
ContextKeyword lcx_key
n_cst_filesrvwin32 n_file

n_file = Create n_cst_filesrvwin32
ls_tempdir = GetCurrentDirectory()
//得到临时缓存
This.GetContextService("ContextKeyword",lcx_key)
lcx_key.GetContextKeywords("TEMP",ls_values)
Int i
For i = 1 To UpperBound(ls_values)
    If DirectoryExists(ls_values[i]) Then
        ls_tempdir = ls_values[i]
        Exit;
    End If
Next
ls_tempdir += "/DisinfectTemp"
If Not DirectoryExists(ls_tempdir) Then
    CreateDirectory(ls_tempdir)
End If
//确定临时文件，并SaveAs，为确保不会出现错误，使用了Try Catch
ls_path = ls_tempdir + "/mydisinfect.doc"
Try
    ole_word.Object.SaveAs(ls_path)
    If n_file.of_fileread(ls_path,worddata) > 0 Then
        n_atrrib.uf_saveword(worddata,ls_err)
    Else
        ls_err = "读取Word信息失败。"
    End If
Catch(RunTimeError e)
    ls_err = e.GetMessage()
Finally
    Destroy n_file
    FileDelete(ls_path)
End Try