【结贴】如何用代码在知识中心中新建文件夹？？

lxh_78

目前遇到一个需求，需要用代码的方式在知识中心中新建文件夹！
最好用函数调用的方式，不要通过数据表的操作完成！
多谢！！

zfang

参考代码
业务模型\协同系统\文档\文档信息
procedure TDirectoryOperationProviderResolver.NewDirectory;
var
  lFileName: string;
  lFileAttribute: TFileAttribute;
begin
  lFileAttribute := TFileAttribute.Create;
  try
    lFileAttribute.DisplayName := GetDefaultNewDirectoryName(FileName);
    lFileName := TDocSystem.GetANewFileName(FileName, '', '');
    TDocSystem.CreateDirectory(Context, lFileName, lFileAttribute);
  finally
    lFileAttribute.Free;
  end;
end;

lxh_78

多谢！
我先搞搞，有问题再发帖！