请问这两段代码问题出在哪里了(有关Indy的)

Question

procedure TFTP.OKClick(Sender: TObject);
var dd,cc:string;
begin
    dd:=formatdatetime('yyyymmdd',now);
    cc:='to97_'+dd+'.txt';
    with idftp1 do try
    username := 'xxx';
    Password := 'xxx';
    Host := 'xx.xx.xx.xx';
    Connect;
    Put('e:\1.txt', cc);
    ~~~~~~~~~~~~~~~~~~~这里传上去的文件只是一个空文件，怎么回事？
    finally
    Disconnect;
end;
end;procedure TFTP.COMEClick(Sender: TObject);
var ee,ff,gg:string;
begin
    ee:=formatdatetime('yyyymmdd',now);
    ff:='from97_'+ee+'.txt';
    gg:='f:\'+ff;
    with idftp1 do try
    username := 'xxx';
    Password := 'xxx';
    Host := 'xx.xx.xx.xx';
    Connect;
    get(ff,gg,true);
    ~~~~~~~~~~~~~~~~程序在这里报错，说是不存在该文件，然后只下载了一个空文件
    finally
    Disconnect;
    end;
end;就是这两处问题，该怎么该才行？

Answer 1

第一个问题已经解决了，有谁帮忙看看第二个问题出在哪里了？

Answer 2

LZ仔细检查一下把,看看是不是路径名写错了.