为什么提示缺少)

gily19821116

Public Function fGetShellNameSpace(ByVal vDir, ByRef sTitle)
    Dim oShell32, oFolder
    Set oShell32 = CreateObject("Shell.Application")
    Set oFolder = objShell.NameSpace(vDir)
    If (Not objFolder Is Nothing) then
            sTitle = oFolder.Title
    End If
    set oFolder = Nothing
    set oShell32 = Nothing
End function


fGetShellNameSpace (f:\release\debug,web)

为什么会提示缺少)???很奇怪

xiaoyaoke

Public Function fGetShellNameSpace(ByVal vDir, ByRef sTitle)
    Dim oShell32, oFolder
    Set oShell32 = CreateObject("Shell.Application")
    Set oFolder = oShell32.NameSpace(vDir)
    If (Not oFolder Is Nothing) then
            sTitle = oFolder.Title
    End If
    set oFolder = Nothing
    set oShell32 = Nothing
End function


fGetShellNameSpace "f:\release\debug","web"

gily19821116

为什么是这样写啊??程序里面用函数不都是括号吗??
能帮忙详细解释一下这个函数吗?
实在是看不懂啊
拜托了


[ 本帖最后由 gily19821116 于 2009-9-25 11:14 编辑 ]

风雪夜归人

函数不用括号

xiaoyaoke

有返回值的函数接收返回值或者用call关键字调用的过程要加括号。

先这么记下,我再想想为什么会这样...

gily19821116

那这个函数具体怎么用呢??我输入的值fGetShellNameSpace "f:\release\20090519","debug" 根本就不能实现函数功能~~