if idftp1.Connected then
begin
if dlgOpen_File.Execute then
begin
idftp1.TransferType := ftBinary;
//这里怎么判断FTP服务器上有这个文件(目录已经存在了,
只要判断这个目录下面是否有这个文件),
如果有我就不传,如果没有再执行下面的上传代码
idftp1.Put(dlgOpen_File.FileName, AnsiToUtf8(ExtractFileName(dlgOpen_File.FileName)));
ChageDir(Utf8ToAnsi(idftp1.RetrieveCurrentDir));
end;
end;
小弟刚接触delphi ,希望大神帮助一下,感谢了!