51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2230|回复: 5
打印 上一主题 下一主题

[求助] 为什么提示缺少)

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 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)

为什么会提示缺少)???很奇怪
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 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"
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2009-9-25 11:11:14 | 只看该作者
为什么是这样写啊??程序里面用函数不都是括号吗??
能帮忙详细解释一下这个函数吗?
实在是看不懂啊
拜托了


[ 本帖最后由 gily19821116 于 2009-9-25 11:14 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2009-9-25 11:12:45 | 只看该作者
函数不用括号
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2009-9-25 11:45:17 | 只看该作者

回复 3# 的帖子

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

先这么记下,我再想想为什么会这样...
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2009-9-25 12:32:59 | 只看该作者
那这个函数具体怎么用呢??我输入的值fGetShellNameSpace "f:\release\20090519","debug" 根本就不能实现函数功能~~
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-15 00:26 , Processed in 0.072749 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表