如何遍厲一個ftp的目錄,對本機得文件遍厲事下面這樣得,ftp呢?求求各位大蝦幫忙 ( 积分: 50 )

L

lcb139

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-10

• #1

procedure TMyFirstThread.CountFileSize(path: string);
var
sr:TsearchRec;
begin
path := IncludeTrailingBackslash(path);
if FindFirst(Path+'/*.*',faAnyfile,sr) = 0 then
begin
repeat
if (sr.Name<>'.') and (sr.Name<>'..') then
begin
if sr.Attr<>fadirectory then
begin
//
end
else
begin
countfilesize(path+sr.Name);
end;
end;
until findNext(sr)<>0
end;


FTP目錄下遍厲所有文件該怎樣寫???

還有怎樣把FTP上一個文件剪貼到另一個目錄下去?

 

暗

暗夜中独舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-10

• #2

我有个FTP的DEMO 里面就有你所要的答案 你要的话我发给你 留给邮箱

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-10

• #3

用IdFTP控件，操作流程为
1.连接ftp服务器并登录
2.List当前目录，获得子目录和文件列表
3.将文件提取出来显示 ，并将此目录下的子目录压入PopupList，用ChangeDir进入子目录，重复第二步和第三步
4.全部完成后退出登录并关闭连接

 

L

lcb139

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-10

• #4

我用不了郵箱,公司不讓用外部郵箱,你告訴我怎樣查找一個目錄下的所有文件就可以了
FTP我是用IDFTP連的,都連好了,就是不知道怎樣查找文件

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-10

• #5

IdFTP.List函数就是列出目录下文件和文件夹的。参看indy的帮助

 

L

lcb139

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-10

• #6

to zqw0017
2.List当前目录，可以說詳細點嗎?我只要得到她們得文件名就可以了

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-10

• #7

》》IdFTP.List函数就是列出目录下文件和文件夹的。参看indy的帮助
这个方法不难，传入一个StringList对象作为参数，List完毕后，StringList中包含的就是文件和文件夹信息（文本形式的），接下来你自己分析就可以了。

 

L

lcb139

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-10

• #8

不好意思,我是菜鳥,我象這樣怎還沒有取到值
myFTP.Host:='10.161.8.48';
myFTP.Port:=21;
myFTP.Username:='bob';
myFTP.Password:='1';
sftpPath:='Share Doc/DevelopB/Bob/DELL3P';
try
myFTP.Connect;
except
showmessage('Cann`t Connect to FTP,PLS Try again!');
application.Terminate;
end;
self.MyFTP.ChangeDir(sftpPath);
MyFTP.List(self.Memo1.lines);

 

L

lcb139

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-10

• #9

搞出來了,謝謝,是FTP路經上出了點問題