通过代码创建一个iis的虚拟目录

Question

怎样通过代码创建一个iis的虚拟目录,发布软件

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  WebSite, WebServer, WebRoot, VDir: Variant;
begin
  WebSite := CreateOleObject('IISNamespace');
  WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
  WebServer := WebSite.GetObject('IIsWebServer', '1');
  WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
  VDir := WebRoot.Create('IIsWebVirtualDir', 'VariantTest');
  VDir.AccessRead := True;
  VDir.Path := 'C:\Test';
  VDir.SetInfo;
end;

Answer 2

VDir.Path := 'C:\Test';
这里知道你自己得目录