请问，读取IIS站点的全部虚拟路径名称及对应物理路径应该怎么读？

Question

我并不知道虚拟路径的名字叫什么，但是要读取IIS站点的全部虚拟路径名称及对应物理路径。请问有人知道应该怎么读吗？我的目的是要遍历IIS站点下全部路径及文件。

Answer 1

我在 vb 调试出来一段代码，请问有没有人可以把这段 vb 代码转换成 .pas 代码? 那么我的问题就解决了。  Dim obj
  Set obj = GetObject("IIS://localhost/w3svc/1/Root")
  Dim str
  str = ""
  For Each Child In obj
    str = str + Child.AdsPath
  Next
  Text1.Text = str

Answer 2

如果换到 pas 代码，我只能写到下面这段代码，再下面的就不会做了:var
  obj, obj2: Variant;
begin
  obj := CreateOleObject('IISNamespace');
  obj2 := obj.GetObject('IIsWebVirtualDir','localhost/w3svc/1/Root');
  ...
end;