用TidFTP如何获取服务器上某个目录下的文件个数，或者判断该目录下是否有文件存在？

Question

如题

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
  SS:TStrings;
begin
  SS:=TStringList.Create;
  try
    FTP.List(SS,'',False);    //False 只返回文件、文件个数可以通过列表查看
    //这个例子是返回当前目录下的文件名列表
  finally
    SS.Free;
  end;
end;

Answer 2

procedure TForm1.Button3Click(Sender: TObject);
var
  SS:TStrings;
begin
  SS:=TStringList.Create;
  try
    FTP.List(SS,'',False);    //False 只返回文件、文件个数可以通过列表查看
    ShowMessage('文件个数：' + IntToStr(SS.Count));
    ShowMessage('文件列表：' + #13 + SS.Text);
  finally
    SS.Free;
  end;
end;

Answer 3

进入目录,然后List就知道了http://lysoft.7u7.net

Answer 4

当该目录下没有文件时，调用list就出错引发异常

Answer 5

TidFTP是什么东西啊,怎么用啊,请教一下罗

Answer 6

TidFTP是什么东西啊,怎么用啊,请教一下罗

Answer 7

楼主， 异常是可以用 try ... catch 屏蔽掉的，异常可不等于啊楼主，
如同 TidHttp 请求返回 代码为 404 对象没有找到一样，也是报的是异常，这是很正常的。
Indy 的好多控件都是这样的。要了解它们的机制。

Answer 8

不好意思，上面缺了两个字。
楼主， 异常是可以用 try ... catch 屏蔽掉的，异常可不等于错误啊楼主，
如同 TidHttp 请求返回 代码为 404 对象没有找到一样，也是报的是异常，这是很正常的。
Indy 的好多控件都是这样的。要了解它们的机制。