如何创建一个IIS虚拟FTP目录

[Code]

procedure CreateVirtualFTPDirectory(sName : String);
var
vDir, WebSite, WebServer, WebRoot : Variant;
ServerAddress, W3svcNumber, ApplicationPath : string;
svcNumber, appPath : Variant;
sPath : String;
begin
sPath := ExpandConstant('{app}\data');
ServerAddress := '127.0.0.1';
W3svcNumber := '1';
ApplicationPath := 'root';
WebSite := CreateOleObject('IISNamespace');
ObjectToGet := ServerAddress + '/msftpsvc';
WebSite := WebSite.GetObject('IIsFtpService', ObjectToGet );
svcNumber := W3svcNumber;
WebServer := WebSite.GetObject('IIsFtpServer', svcNumber);
appPath := ApplicationPath;
WebRoot := WebServer.GetObject('IIsFtpVirtualDir', appPath);
try
WebRoot.delete('IIsFtpVirtualDir', sName);
except
end;
VDir := WebRoot.Create('IIsFtpVirtualDir', sName);
VDir.AccessRead := True;
VDir.AccessWrite := True;
VDir.Path := sPath;
VDir.SetInfo();
end; 本文出自 “学无止境” 博客，请务必保留此出处http://dqk1985.blog.51cto.com/1005868/223427