SOS !! 如何在程序中通过FTP在别的机器上建立目录？？？ 急急急！！！

Question

TNMFTP控件的MakeDirectory(创建目录)方法可以建立目录：
下面是一个使用TNMFTP的例子： 
    添加TNMFTP控件:NMFTP1 
    添加Label控件:Label1、Label2、Label3、Label4、Label5、La 
bel6 
    Label1.Caption = ‘主机名称' 
    Label2.Caption = ‘主机端口号' 
    Label3.Caption = ‘用户名' 
    Label4.Caption = ‘用户口令' 
    Label5.Caption = ‘代理服务器' 
    Label6.Caption = ‘代理端口号' 
    添加Edit控件:HostTxt(FTP主机名)、PortTxt(FTP主机端口)、U 
serTxt(用户名)、PassTxt(用户口令)、ProxyServerTxt(代理服务器 
地址)、ProxyPortTxt(代理服务器端口) 
    添加CheckBox控件:CheckBox1CheckBox1.Caption = ‘使用代理 
服务器' 
    添加Button控件:Button1(连FTP主机)、Button2(断开FTP主机) 
、Button3(列FTP目录) 
    Button1.Caption = ‘连接' 
    Button2.Caption = ‘断开' 
    Button3.Caption = ‘列目录' 
    将以上控件以友好界面方式在Form中进行放置。 
    编写Button1的Click事件为: 
    procedure TForm1.Button1Click(Sender: TObject); 
    begin 
    If CheckBox1.Checked then 
    Begin 
    NMFTP1.Proxy := ProxyserverTxt.Text; 
    NMFTP1.ProxyPort := StrToInt(ProxyportTxt.Text); 
    End; 
    NMFTP1.Host := HostTxt.Text; 
    NMFTP1.Port := StrToInt(PortTxt.Text); 
    NMFTP1.Timeout := 5000; 
    NMFTP1.UserID := UserTxt.Text; 
    NMFTP1.Password := PassTxt.Text; 
     try 
    NMFTP1.Connect; 
     except 
    On E:Exception do 
     writeln(E.message); 
     end 
    end; 
    编写Button2的Click事件为: 
    procedure TForm1.Button2Click(Sender: TObject); 
    begin 
    NMFTP1.Disconnect; 
    end; 
    编写Button3的Click事件为: 
    procedure TForm1.Button3Click(Sender: TObject); 
    begin 
    try 
    NMFTP1.List; 
    except 
    end; 
    end; 
    另外FTP控件还具有其他功能,如:MakeDirectory(创建目录)、Re 
moveDir(删除目录)、Rename(文件更名)、Delete(删除文件)、Uploa 
d(上载文件)、Download(下载文件)等,在此不再讲述,大家如需要编 
写这些功能,可自己增加。 

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  idftp1.MakeDir('')
end;

Answer 2

TO  cg1120(代码最优化) :
   谢谢！ 这个问题是解决了。还想问两个问题： 
1：在建立FTP虚拟目录时，加上了用户名和口令，用资源管理器打开，按提示输入用户名和密码，可是还是访问不了， 更不用说创建文件夹了。同样在程序中，NMFTP1.UserID , NMFTP1.Password 都赋上相应的值， 还是一样不行。 是什么原因？ 
2、 这样只能一级一级的建立目录， 不能同时创建子目录，有方法可以创建带有下级目录父目录吗？谢谢！！

Answer 3

SOS   怎么判断FTP虚拟目录中是否已经存在相同的目录？????HELP !!