懂VB的朋友请进，VB代码转换为DELPHI

关于网友提出的“ 懂VB的朋友请进，VB代码转换为DELPHI
”问题疑问，本网通过在网上对“ 懂VB的朋友请进，VB代码转换为DELPHI
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： 懂VB的朋友请进，VB代码转换为DELPHI
描述:

Function isVirtualDirExist(sDir) As Boolean
    On Error GoTo errh
    Dim oVirtualDir
    'Delete Virtual Directory
    Set oVirtualDir = GetObject("IIS://LocalHost/w3svc/1/root/" + sDir)
            
    isVirtualDirExist = True
    
    Set oVirtualDir = Nothing
    Exit Function
errh:
    isVirtualDirExist = False
    Set oVirtualDir = Nothing
End Function

---

解决方案1:

看看vb里那个GetObject是什么函数，那个vb程序是用了adsi组件么？

解决方案2:

GetActiveOleObject的参数不只是何意，应该是Delphi的函数不支持。尝试一下别的方法，同一种功能不一定就这一条路呀，再仔细想想！

解决方案3:

up

解决方案4:

我才试了你的代码，并没有报错啊，我的是delphi7

以上介绍了“ 懂VB的朋友请进，VB代码转换为DELPHI”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2781797.html