如何指定資料夾??

Question

var f: TFileStream;begin
  f := TFileStream.Create(''c:\test.exe'',fmOpenRead);
  IdFTP1.Put(f,'目标文件名.exe',false);
  FreeAndNil(f);
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

我是要指定[資料夾],不是檔案!!!!