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

SUPERWOMEN 发表于 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属性在我这段代码中怎么应用？
请大侠们给指点下。谢谢。

fei.ge 发表于 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 编辑 ]

onlonely 发表于 2009-7-1 08:51:09

回复 2# 的帖子

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

hsjzfling 发表于 2009-7-1 09:58:39

msgbox dc.Item("C:").VolumeName

SUPERWOMEN 发表于 2009-7-1 13:37:12

感谢各位前辈的指点，我把call ShowDriveList()这句删了就好了。

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

SUPERWOMEN 发表于 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]

51Testing软件测试论坛 's Archiver

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

回复 2# 的帖子