新手，求教Delphi Indy控件上传问题

[鬼五拾柒]

//检索文件夹并上传
procedure TForm1.Button4Click(Sender: TObject);
var
  Search:TSearchRec;
  first:string;
  tr:TStrings;
begin
    //连接FTP服务器
   tr := TStringlist.Create;
   IdFTP1.Host:=Help.ftpadd;
   IdFTP1.Username:=Help.ftpname;
   IdFTP1.Password:=Help.ftppwd;
   IdFTP1.Connect();
   Form1.ListBox1.Items.clear;
   if (Edit1.Text<>'c:\') and (Edit1.Text<>'C:\')
   then
   begin
      if rightStr(Edit1.Text,1)<>'\' then Edit1.Text:=Edit1.Text+'\';
      FindFirst(Edit1.Text+'*.*',faAnyFile,Search);
      While FindNext(Search)=0 do
      begin
        if Search.Name[1] <> '.' then //如果文件名不为"."或".."
        begin
          if (ExtractFileExt(Search.Name)='.txt') or (ExtractFileExt(Search.Name)='.gnlog')   then
          begin
                //Form1.ListBox1.Items.Add(Search.Name);
                //showmessage(Search.Name);
                first:=leftStr(Search.Name,1);
                //showMessage(first);
                if Help.isnum(first)<>false  then  //判断文件名以英文字母的不用上传
                begin
                  if Help.IsFileInUse(Search.Name)=false  then  //判断文件是否被使用
                  begin
                     with adoquery1 do
                     begin
                     close;
                     sql.clear;
                     sql.add('select * from t_jl0030 where filename='''+Search.Name+''' and com_mac='''+mac+''''); //判断文件是否上传
                    // showmessage(sql.Text);
                     open;
                     end;
                     if ADOQuery1.isEmpty then
                     begin
                          IdFTP1.ChangeDir('Test');
                          showmessage(Search.Name);
                          IdFTP1.Put(Edit1.Text+'\'+Search.Name,Search.Name,true);
                          Form1.ListBox1.Items.Add(Search.Name);
                          IdFTP1.Free;
                     end
                  end
                end
          end
        end
      end
  end
end;

上传第一个文件没问题，第二个文件就报错 The system cannot find the file specified

[缘中人]

IdFTP1.ChangeDir('Test'); 每次从根目录试试

[鬼五拾柒]

引用 1 楼 ksrsoft 的回复:

IdFTP1.ChangeDir('Test'); 每次从根目录试试

不懂？把Test 目录改成根目录？还是？

[鬼五拾柒]

问题已解决,把IdFTP1.ChangeDir('Test');放到循环外面就可以了，结贴

[lyhoo163]

问题解决了，就好。