Result := Ftp.size(FileName) <> -1;当文件不存在的时候,文件的大小为-1.这种方法应该可以。
Function IfServerFileExists(FileName); Begin Result := Ftp.size(FileName) <> -1; end;当文件不存在的时候,文件的大小为-1.这种方法应该可以。不过有局限性,只能取得根目录下的文件,如果你想取得根目录下一级的目录文件是否存在, 需要进入目录,故:Function IfServerFileExists(FileName); Begin //在此处加入一段对服务器目录进循环的代码。 Result := Ftp.size(FileName) <> -1; end;
更正下Function IfServerFileExists(FileName); Begin //在此处加入一段对服务器目录进循环的代码。 Result := Ftp.size(FileName) <> -1; end;说明:Function IfServerFileExists(FileName);FileName:一定是要是全路径。比如MainFrm.Ftp.RetrieveCurrentDir+'a/b/c/../'+filename
返回213表示文件存在
其他就不存在了
Begin
Result := Ftp.size(FileName) <> -1;
end;当文件不存在的时候,文件的大小为-1.这种方法应该可以。不过有局限性,只能取得根目录下的文件,如果你想取得根目录下一级的目录文件是否存在,
需要进入目录,故:Function IfServerFileExists(FileName);
Begin
//在此处加入一段对服务器目录进循环的代码。
Result := Ftp.size(FileName) <> -1;
end;
Begin
//在此处加入一段对服务器目录进循环的代码。
Result := Ftp.size(FileName) <> -1;
end;说明:Function IfServerFileExists(FileName);FileName:一定是要是全路径。比如MainFrm.Ftp.RetrieveCurrentDir+'a/b/c/../'+filename