怎样判断ftp服务器上是否存在某个文件？

Question

怎样判断ftp服务器上是否存在某个文件？

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
  List : TStringList;
  filename : String;
begin
  filename:='123.txt';
  IdFTP1.List(List,true);
  if List.IndexOf(filename)>0 then
  showmessage('ssssssssssss');end;

Answer 2

IdFTP1.List(List,true);
这句有错
Incompatible types:'String'and 'Boolean'

Answer 3

procedure TForm1.Button3Click(Sender: TObject);
var
  List : TStringList;
  filename : String;
begin
  List:=TStringList.Create;
  filename:='123.txt';
  IdFTP1.List(List,true);
  IdFTP1.
  if List.IndexOf(filename)>0 then
  showmessage('ssssssssssss');
  freeandnil(List);
end;
晕死，又掉了freeandnil(List);

Answer 4

今天不是写代码的天
procedure TForm1.Button3Click(Sender: TObject);
var
  List : TStringList;
  filename : String;
begin
  List:=TStringList.Create;
  filename:='123.txt';
  IdFTP1.List(List,true);
  if List.IndexOf(filename)>0 then
  showmessage('ssssssssssss');
  freeandnil(List);
end;
晕死，又掉了freeandnil(List);

Answer 5

不行啊，大哥，还是
IdFTP1.List(List,true);
这句有错
Incompatible types:'String'and 'Boolean'
改成这样
procedure TForm1.Button2Click(Sender: TObject);
var
  List : TStringList;
  filename : String;
begin
  List:=TStringList.Create;
  filename:='123.txt';
  IdFTP1.List(List,'*.txt',true);
  if List.IndexOf(filename)>0 then
  showmessage('ssssssssssss');
  freeandnil(List);
end;
又说这句if List.IndexOf(filename)>0 then有错
Access violation at address...

Answer 6

idftp1.Connect;
  if idFtp1.size('a.rar')=-1 then
    showmessage('不存在')
  else
    showmessage('存在');
    idftp1.Disconnect;