【结贴】文件关联--文件创建操作的问题？**

zwjcooldd

if not FileSys.FileSystem.FileExists(TRTLConsts.DocRoot) then  //TRTLConsts在协同常量库
  try
    FileSys.FileSystem.CreateFile(TRTLConsts.DocRoot, cGUID, [], TFileKind.fkSpace, TRTLConsts.DocDisplayName);
  except
FileSys.FileSystem.FileExists ：是判断操作系统中是否有这个文件吗？还是判断表中是否有记录？
FileSys.FileSystem.CreateFile  是在操作系统中创建文件，同时在表中记录所创建的文件的信息吗？

zwjcooldd

procedure TRELEVANCYDOC.EnsureRoot;
const
  cGUID = '4B666B997C49446688B339B6D944AA5B';
begin
  if not FileSys.FileSystem.FileExists(TRTLConsts.DocRoot) then  //TRTLConsts在协同常量库
  try
    FileSys.FileSystem.CreateFile(TRTLConsts.DocRoot, cGUID, [], TFileKind.fkSpace, TRTLConsts.DocDisplayName);
  except
    on E: TObject do
      raise Exception.CreateFmt('知识中心基础数据错误，初始化失败。'#13#10 + '错误原因：%s', [jsCommon.ExceptText(E)]);
    else
      raise;
  end;
end;

这段代码执行时候，产生很多的错误

zwjcooldd

2

zwjcooldd

并且，FileSys.FileSystem.FileExists(TRTLConsts.DocRoot ） 老是 fasle

shangxy

为false就说明根节点已经存在了，这个代码只执行一次就可以了，
如果想重新创建，就把tdocsystem表和Tdocattribute表清空在执行这段代码。

zwjcooldd

奥，好