51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

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

[求助] 请教各位前辈VBS中drives集合的count属性和ITEM属性的实际应用

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-6-30 18:38:15 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
想请问各位前辈drives集合的count属性和ITEM属性的实际应用。麻烦看下下面函数:
Function ShowDriveList()
    Dim fso, d, dc, s, n
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dc = fso.Drives
   msgbox dc.count
    For Each d in dc
     n = ""
   s = s & d.DriveLetter & " - "
        If d.DriveType = Remote Then
            n = d.ShareName
        ElseIf d.IsReady Then
            n = d.VolumeName
        End If
        s = s & n &"<BR>"
    Next
   ShowDriveList = s
End Function
call ShowDriveList()
msgbox ShowDriveList
1)我的电脑上有4个盘,执行时msgbox dc.count,弹出两次对话框,都显示的是4,请教前辈们为什么会出现两次?
2)ITEM属性在我这段代码中怎么应用?
请大侠们给指点下。谢谢。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    难过
    2015-9-21 13:50
  • 签到天数: 4 天

    连续签到: 1 天

    [LV.2]测试排长

    2#
    发表于 2009-6-30 19:23:25 | 只看该作者
    这是QTP帮助文档上的内容.

    1)我的电脑上有4个盘,执行时msgbox dc.count,弹出两次对话框,都显示的是4,请教前辈们为什么会出现两次?
    <<<因为你call ShowDriveList()加msgbox ShowDriveList,一共运行了2次函数

    2)ITEM属性在我这段代码中怎么应用?
    <<<有item属性吗....?期待..

    [ 本帖最后由 fei.ge 于 2009-6-30 19:30 编辑 ]
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
    发表于 2009-7-1 08:51:09 | 只看该作者

    回复 2# 的帖子

    你看你后面的调用..
    call ShowDriveList()
    msgbox ShowDriveList
    这样,的语句会执行2次函数的.
    call代表执行一次,
    msgbox ShowDriveList
    会先执行ShowDriveList然后结果用msgbox输出来
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2009-7-1 09:58:39 | 只看该作者
    msgbox dc.Item("C:").VolumeName
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2009-7-1 13:37:12 | 只看该作者
    感谢各位前辈的指点,我把call ShowDriveList()这句删了就好了。

    请问楼上的前辈,msgbox dc.Item("C:").VolumeName 这句应该放到那个位置,我执行了下,弹出框中没有任何内容,不知道这句话放的地方对不?
    另:
    msgbox dc.Item("C:").VolumeName中"C:"可以用于变量表示么?
    还请前辈给与详细指点。
    谢谢。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
     楼主| 发表于 2009-7-1 13:54:58 | 只看该作者
    感谢楼上这位前辈的思路。
    我前辈的思路加到代码中,最终终于调试通过了。供大家参考。如有不对地方,请大家都得指点。
    Function ShowDriveList()
        Dim fso, d, dc, s, n
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set dc = fso.Drives
        msgbox dc.count
        For Each d in dc
         n = ""
       s = s & d.DriveLetter & " - "
            If d.DriveType = Remote Then
                n = d.ShareName
            ElseIf d.IsReady Then
                n = d.VolumeName
            End If
            s = s & n &"<BR>"
            If d.IsReady Then
           msgbox d.DriveLetter&"可用空间"&dc.Item(d.DriveLetter).FreeSpace       Else
            msgbox d.DriveLetter&"驱动器未就绪"
           End If   
        Next
       ShowDriveList = s
    End Function
    msgbox ShowDriveList
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-11 12:40 , Processed in 0.067724 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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