写ftp程序上传文件的时候，怎么判断服务器端是否有同名文件？(50分)

J

janlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #1

写ftp程序上传文件的时候，怎么判断服务器端是否有同名文件？

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #2

list服务器文件列表，然后判断当前传的文件名是否在列表里

 

J

janlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #3

啊啊啊啊啊:

能具体点吗？问题解决，立即给分！

 

Y

yf168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #4

简单，分太少，你把我的问题看看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2594991

 

J

janlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #5

yf168：

分不够可再加，只要问题解决了，给你加100

 

D

dyck2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-06

• #6

try
Dir_List:=TStringList.Create;
IdFTP.ChangeDir('/');
IdFTP.List(Dir_List,'',False); //get all file name of current dir
if Dir_List.IndexOf('CUpload') = -1 //judge whether the file exist
then begin
SB.Panels[0].Text:='找不到更新文件';
exit;
end;
finally
Dir_List.Free;
end;

 

W

wenjunwu430

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-06

• #7

同意楼上

 

J

janlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-06

• #8

if Dir_List.IndexOf('CUpload') = -1 //judge whether the file exist
中CUpload这个参数是什么意思啊？

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-06

• #9

先连接服务器然后把服务器的文件添加到listbox
AFiles := TStringList.Create;
idftp1.List(afiles,'', false);
listbox1.items.AddStrings(afiles);

用filelistbox显示要添加的文件，用以下语句判断要添加的文件是否在listbox中
for i:=0 to (filelistbox1.Items.Count -1) do
begin
if listbox1.Items.IndexOf(filelistbox1.Items)<0 then
//表示不在列表 上传即可

 

J

janlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #10

问题已解决!