谁会用cutFTP?其实这个问题100分（另外50分如果答案满意的话我让你到别的地方取）。(50分)

问题1：它可以上传整个文件夹么？（50分）
问题2：如果可以上传整个文件夹，在Delphi中用NMFTP怎么实现？
看帮助Upload(LocalFile, RemoteFile: string)，好像要
把具体的文件名（比如图片名字）写出来。。。
（50分）－－－－如果答案满意，我会让您到别的地方领分的。

1、没问题，简单的拖拽就可以实现。
2、我想可以使用FINDFIRST，FINDNEXT实现吧！

我要上传到的目录： '/webshop/videos/'+shopname;
本地的目录： extractfilepath(paramstr(0))+'/videoes';
呵呵，请帮我写出代码ok?急着用（当然我也写，参考下您的啦）
分数好说，100

cutFTP.很简单。

cuteftp可以上传整个文件夹，但他也是通过遍历各个目录实现的丫

是呀！

老千，太懒了！！！！

zyy04,
俺也在写阿：（

不过写得不对：（
目的：把程序安装目录下的videoes目录的所有.mov文件上传
var
sr:TsearchRec;
fileattrs:integer;
begin
//先按照图片来做
edit1.text:=extractfilepath(paramstr(0));
fileattrs:=0;
fileattrs:=fileattrs+faanyfile;
if videosup_rb.Checked then
begin
edit4.text:='/webshop/videos/'+shopname;
edit3.Text:=extractfilepath(paramstr(0))+'/videoes';
try
begin
if findfirst(edit3.text,fileattrs,sr)=0 then //判断如果有文件
//----->问题出在这里，居然判断没文件，下面的就全部不执行了
begin
while findnext(sr)=0 do //如果不到最后一个
begin
if (sr.attr and fileattrs)=sr.attr then
begin
NMftp1.Upload(edit3.text+'/'+sr.name,edit4.Text+'/'+sr.Name);
end;//上传

end;
findclose(sr);winexec(Pchar('deltree -y '+edit3.Text),sw_hide);
if not DirectoryExists(edit3.text) then
if not CreateDir('edit3.text') then // 必须use filectrl,因为是在filectrl里定义的
raise Exception.Create('警告：未能成功创建videoes目录');

end;
end;//end of if
except end;

唉，没人理睬zhen惨
if findfirst(edit3.text+'/*.*,fileattrs,sr)=0 then //判断如果有文件
begin
if (sr.attr and fileattrs)=sr.attr then
begin
// 下面这句明显错了，可不知道怎么改才能把每个图片都上传（名字不变）
NMftp1.Upload(edit3.text+'/*.*,edit4.Text+'/*.*');
end;

fish:*号开头的是改写过的,没试过，希望正确吧
var
sr:TsearchRec;
fileattrs:integer;
begin
//先按照图片来做
edit1.text:=extractfilepath(paramstr(0));
fileattrs:=0;
fileattrs:=fileattrs+faanyfile;
if videosup_rb.Checked then
begin
edit4.text:='/webshop/videos/'+shopname;
edit3.Text:=extractfilepath(paramstr(0))+'/videoes';
* edit3.text:=extractfilepath(applicaiton.exename)+'/videoes';
try
begin
if findfirst(edit3.text,fileattrs,sr)=0 then //判断如果有文件
* if findfirst(edit3.text+'/*.mov',fileattrs,sr)=0 then
//----->问题出在这里，居然判断没文件，下面的就全部不执行了
begin
* :upload
NMftp1.Upload(edit3.text+'/'+sr.name,edit4.Text+'/'+sr.Name);
* Nmftp1.upload(edit3.text+'/'+sr.name,edit4.Text+'/'+sr.Name);
while findnext(sr)=0 do //如果不到最后一个
if (sr.attr and fileattrs)=sr.attr then
goto upload;
findclose(sr);winexec(Pchar('deltree -y '+edit3.Text),sw_hide);
if not DirectoryExists(edit3.text) then
if not CreateDir('edit3.text') then // 必须use filectrl,因为是在filectrl里定义的
raise Exception.Create('警告：未能成功创建videoes目录'); end;
end;//end of if
except end;

结束

end