--  外部文件进行操作的函数集合
--  FindDirectorFile

--**********************************************************************************
--函数名称：FindDirectorFile
--函数功能：查找当前文件夹下的文件是否存在
--传入参数：FileName
--传出参数：None
--返 回 值：1（表示文件存在），0（表示文件不存在）
--备    注：FileName文件的名字（不带后缀名），Suffix1文件的后缀名第一种情况，Suffix2文件的后缀名第二种情况，只能用于查找Director的文件
--范    例：put FindFile("m01a1")
--          -- 1
--**********************************************************************************
on FindDirectorFile FileName,Suffix1,Suffix2
  tName = FileName
  FileXtra4 = new (xtra"filextra4")
  tPath = the moviePath
  first = FileXtra4.fx_FileExists(tPath & tName & ".dxr")
  if first = 1 then
    return 1
  else
    second = FileXtra4.fx_FileExists(tPath & tName & ".dir")
    if second = 1 then
      return 1
    else
      put tPath & "目录下没有" & tName & ".dir" & "或" & tName & ".dxr"
      return 0
    end if
  end if
end
