Procedure Create_IIS_VirtualDir(VirtualDirectoryName : String;PhisicalPath : String = ‘c:\’;AccessRead : Boolean = True;EnableDirBrowsing : Boolean = False); Var IIS, IIS_WServer, Root, NewDir: Variant; Begin If not DirectoryExists(PhisicalPath) then If not ForceDirectories(PhisicalPath) then Exit; IIS := CreateOleObject(‘IISNamespace’); IIS := IIS.GetObject(‘IIsWebService’, ‘localhost/w3svc’); IIS_WServer := IIS.GetObject(‘IIsWebServer’, ‘1’); Root := IIS_WServer.GetObject(‘IIsWebVirtualDir’, ‘Root’); NewDir := Root.Create(‘IIsWebVirtualDir’, VirtualDirectoryName); // setting web dir…
Leggi tutto
