如何生成一个文件在某个目录下？

[yzfcat_fish]

如何将一个文件创建在指定的目录下，另外，用sql server导入数据库的详细步骤希望赐教。

[lxpbuaa]

var f: TFileStream;
s: PChar;
begin
f := TFileStream.Create(路径+文件名,fmCreate);
s := 'yzfcat_fish (猫鱼) ';
f.Write(s^,Length(s));
FreeAndNil(f);
end;


—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————


　　　　　　　

[tygh2000]

1.如果文件夹（路径）已经存在了，可以直接assignFile(FPointer,path+filename), rewrite(FPointer),
如果路径不存在，你要用function CreateDir(const Dir: string): Boolean;来创建目录的