【结】[问题]关于上传文件，保存路径的问题。

pc牧童

首先我用了，下面的代码，上传文件。
procedure TFRMDOCCENTER.UpLoadClick(Sender: TObject);
var
  lFileName, osFile, lExt: string;
  lFileAttribute: TFileAttribute;
begin
  if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '') then
    begin
      jsDialogs.ShowMsg('请选择上文件和存储路径！', '提示：');
      exit;
    end;
  lFileAttribute := TFileAttribute.Create;
  try
    lFileAttribute.DisplayName := edit1.Text;
    lFileAttribute.Size := 0;
    lFileAttribute.CreateTime := SysUtils.Now;
    lFileAttribute.IsDirectory := false;
    lFileAttribute.IsHidden := false;
    lFileAttribute.IsSpace := false;
    lFileAttribute.LastWriteTime := SysUtils.Now;
    lFileAttribute.ValuesAsString['OSFILENAME'] := edit3.Text;

    lExt := Sysutils.ExtractFileExt(edit1.Text);
    lFileName := edit2.text + jsCommon.CreateGUIDStr + lExt;
    osFile := TUnStructureDocUtils.NewFile(Context, lFileName, lFileAttribute);
    //TDocSystem.CheckIn(Context, lFileName);
  finally
    lFileAttribute.Free;
    jsDialogs.ShowMsg(osFile, 'UpLoad:');
  end;
end;


请问用这个代码上传文件的时候，能创建路径么？
这里的路径用的是‘Doc：\Doc’既‘知识中心’下。有没有什么方法能上传文件的时候创建文件夹或新建路径什么的，
在此请教。

pc牧童

自己顶啊，不知道也要告诉我啊。

zfang

这个具体没试过，可以试试就知道结果了。

pc牧童

坐等，楼上有代码么，贴上来。

zfang

首先要搞清楚一个问题：
即 Doc：\Doc\AAAA这种形式的只是数据库中的记录，而并不是服务器上的文件所在的文件夹（你可以看一下 TDOCSYSTEM中的显示名称），文件在服务器上存储的话，还是按年月日来存储的。

所以你上面说的创建路径其实就是产生相应的数据就可以了。

pc牧童

哦，是说要往哪个表里写一组对应的数据是么。？

pc牧童

这个解决了，是在文档系统表里找的相对路径。请结贴。谢谢。