有个网友问我为什么我前面的创建虚拟目录的例子执行权限都是无，看了一下自己写滴，确实有一些属性没有设置，现贴出一些常用属性供参考 VDir.AccessRead := True; //读取
VDir.AccessWrite :=True; //写入
VDir.AccessExecute :=True; //脚本和可执行文件
VDir.AccessScript:=True; //纯脚本
VDir.EnableDirBrowsing :=True; //目录浏览
VDir.Pat
浏览全文...
在前面我已写过虚拟目录的管理，以下程序是删除默认WEB下某虚拟目录
删除虚拟目录应用程序名
function DeleteVirtualDirApp(strVirtualDir: string): Boolean;
var
WebSite, WebServer, WebRoot,vdir: Variant;
begin
Result := True;
try
WebSite := CreateOleObject('IISNamespace');
We
浏览全文...