Delphi 错误：“系统找不到指定的路径”

由于系统找不到指定的路径，因此出现错误

错误显示在以下代码函数中：

function VirtualDirectoryExists(VirtualDirectoryName : String) : Boolean;
var
  BindContext: IBindCtx;
  Eaten: longint;
  Moniker: IMoniker;
  ObjectDispatch: IDispatch;
  VariantObject: Variant;
  WebVirtualDir: Variant;
begin
  OleCheck(CreateBindCtx(0, BindContext));
 try
  OleCheck(MkParseDisplayName(BindContext, 'IIS://localhost/W3SVC', Eaten, Moniker));
 except
  on E : Exception do
  begin
    ShowMessage(E.Message);
    Result := False;
    Exit;
  end;
 end;
  OleCheck(Moniker.BindToObject(BindContext, nil, IDispatch, ObjectDispatch));
  VariantObject := ObjectDispatch;
 try
  // below statement throws exception
   WebVirtualDir := VariantObject.GetObject('IisWebVirtualDir', '1/Root/' + VirtualDirectoryName); 
  Result := True;
 except
  Result := False;
 end;
end;

传递到此过程的参数如下所示：

VirtualDirectoryName='MYWebSite'

我找不到它

语句WebVirtualDir:=VariantObject.GetObject'IisWebVirtualDir'，'1/Root/'+VirtualDirectoryName；抛出异常

我使用的是iis7.5版本winwindows7

有人能告诉我如何解决这个问题吗

---

提前谢谢。

哪一行代码引起了错误？@DavidHeffernan请检查我是否做了更改。我们仍然不知道哪一行代码失败，如果我们要设置和复制与您相同的环境（我们对此一无所知），这将是一项非常艰巨的工作。你需要提供更多的信息。我们甚至不知道您使用的是哪个版本的IIS。@Jerrydoge请检查我所做的更改并突出显示导致异常的语句，如果需要更多信息，请告诉我。我猜这不是您的Delphi代码中的问题，而是此网站的设置问题。这个虚拟目录实际存在吗？因为根据这段代码的工作方式，这个异常应该会发生——但您只能在调试模式下看到它。在运行时，您不会看到此异常，但它将返回false，而不是假设它不存在。