关于如何用代码创建IIS的FTP站点的虚拟目录的问题！

在网站上搜索了半天都是关于怎样建立web站点的虚拟目录的！可是我要在FTP站点上建立虚拟目录该怎样办呢！下面是创建web站点虚拟目录的代码！我将其中的web改成ftp不行！哪位大虾帮忙呀！
procedure TForm1.Button1Click(Sender: TObject);
var
  I: IADsContainer;
  ADs: IADs;
begin
  if ADsGetObject('IIS://localhost/w3svc/1', IID_IADsContainer, IUnknown(I)) = S_Ok then
  begin
    ADs := IADs(I.GetObject('IIsWebServer', '1'));
    ShowMessage(ADs.ADsPath);
    if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
    begin
      ADs := IADs(I.GetObject('IIsWebVirtualDir', 'Root'));
      ShowMessage(ADs.ADsPath);
      if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
      begin
        ADs := IADs(I.Create('IIsWebVirtualDir', 'ld'));
        ADs.Put('AccessRead', 'True');
        ADS.Put('AccessWrite', 'True');
        ADs.Put('Path', 'E:\新建文件夹 (3)');
        ADs.SetInfo;
      end;
    end;
  end;
end;