gily19821116 发表于 2009-9-25 10:58:19

为什么提示缺少)

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 发表于 2009-9-25 11:02:57

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 发表于 2009-9-25 11:11:14

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

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

风雪夜归人 发表于 2009-9-25 11:12:45

函数不用括号

xiaoyaoke 发表于 2009-9-25 11:45:17

回复 3# 的帖子

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

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

gily19821116 发表于 2009-9-25 12:32:59

那这个函数具体怎么用呢??我输入的值fGetShellNameSpace "f:\release\20090519","debug" 根本就不能实现函数功能~~
页: [1]
查看完整版本: 为什么提示缺少)