51Testing软件测试论坛

标题: 为什么提示缺少) [打印本页]

作者: gily19821116 时间: 2009-9-25 10:58
标题: 为什么提示缺少)
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
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
为什么是这样写啊??程序里面用函数不都是括号吗??
能帮忙详细解释一下这个函数吗?
实在是看不懂啊
拜托了

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

作者: 风雪夜归人 时间: 2009-9-25 11:12
函数不用括号

作者: xiaoyaoke 时间: 2009-9-25 11:45
标题: 回复 3# 的帖子
有返回值的函数接收返回值或者用call关键字调用的过程要加括号。

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

作者: gily19821116 时间: 2009-9-25 12:32
那这个函数具体怎么用呢??我输入的值fGetShellNameSpace "f:\release\20090519","debug" 根本就不能实现函数功能~~

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)