我用TIDFtp组件上传、下载和删除FTP服务器上的文件,上传、下载和删除都是正常的。
现在有一个问题,在删除之前要先判断服务器上的文件是否存在,如果存在就删除,否则,则提示待删的文件不存在,按下面的方法,系统都是提示文件不存在,不知哪里除了问题?代码如下:
precedure TForm1.Button4Click(Sender:TObject);
begin
with IdFTP1 do
begin
Host:='134.148.47.201';
User:='my_host';
password:='123456';
if Connected then Disconnect;
connect();
if FileExitsts('.\sx1\sx2\hy.xls') then
begin
delete('.\sx1\sx2\hy.xls');
showmessage('---- 已经删除 ----');
end
else
showmessage('---- 服务器上不存在hy.xls文件');
endi
if connected then disconnect;
end;
end;
现在有一个问题,在删除之前要先判断服务器上的文件是否存在,如果存在就删除,否则,则提示待删的文件不存在,按下面的方法,系统都是提示文件不存在,不知哪里除了问题?代码如下:
precedure TForm1.Button4Click(Sender:TObject);
begin
with IdFTP1 do
begin
Host:='134.148.47.201';
User:='my_host';
password:='123456';
if Connected then Disconnect;
connect();
if FileExitsts('.\sx1\sx2\hy.xls') then
begin
delete('.\sx1\sx2\hy.xls');
showmessage('---- 已经删除 ----');
end
else
showmessage('---- 服务器上不存在hy.xls文件');
endi
if connected then disconnect;
end;
end;
解决方案 »
- 怎样在Delphi的非窗体单元中使用MSCOMM?
- 用Remobject传xml的问题
- [Error] TEditEx.PAS(16): Identifier redeclared: 'TEditEx'???
- 大家帮帮忙!!--DBGrid中所选单元格的颜色改变,要怎样实现??
- 不知有多少人从头到尾仔细看过
- 一个关于EXCEL的问题
- 有关database的问题
- 从ini文件中读出来的“HKEY_LOCAL_MACHINE“是string ,怎样转化使其变为hkey啊
- 创建MTS/COM+的Windows SDK方法CoInitialize在什么单元中
- 为啥动态创建TPanel 显示不了?
- 如下查询哪里错了。
- 请教QuickRep的问题
你可以用IdFTP1.Size试试,不存在返回为0