delphi保存读取word并保存到指定的文件夹

Question

delphi保存读取word并保存到指定的文件夹，我的这段代码的把读取的word文档保存到应用程序的文件夹下面，而我想把他保存到指定的文件夹下面，我的代码应该如何改进，谢谢各位高手
这是我的代码
 var
    sfilename:string;
    bs:Tadoblobstream;
 begin
      bs:=Tadoblobstream.Create(TBLOBfield(ADOQ.FieldByName('word')),bmread);
      try
        sfilename:=extractfilepath(application.ExeName)+trim(adoq.fieldbyname('id').AsString);
        sfilename:=sfilename+'.'+'doc';
        bs.SaveToFile(sfilename);
        try
          Form1:=Tform1.Create(self);
          Form1.olecontainer1.CreateObjectFromFile(sfilename,false);
          Form1.OleContainer1.Iconic:=true;
        finally
        end;
      finally
        bs.free;
      end;
 end;
注意在uses加 IdGlobal

Answer 1

procedure TForm1.Button5Click(Sender: TObject);
//--------------------------------------------------------
  var
    sfilename:string;
    bs:Tadoblobstream;
    str:string;
 begin
   str:=edit1.Text;
      bs:=Tadoblobstream.Create(TBLOBfield(ADOQ.FieldByName('word')),bmread);
      try
        ForceDirectories('d:\dir\'+str);
        sfilename:=ExtractShortPathName('d:\dir\'+str+'\')+trim(adoq.fieldbyname('id').AsString);
        sfilename:=sfilename+'.'+'doc';
        bs.SaveToFile(sfilename);
        try
          Form1:=Tform1.Create(self);
          Form1.olecontainer1.CreateObjectFromFile(sfilename,false);
         Form1.OleContainer1.Iconic:=true;
        finally
        end;
      finally
        bs.free;
      end;
 end;
结贴