drives to work(drives)

来源:互联网 时间:2023-08-10 22:27:24


(资料图片仅供参考)

导读

1、Drives 集合 描述所有可用驱动器的只读集合。

2、说明对于可删除的驱动器,不需要将媒体插入其中,它就可以在Drives集合中显示出来。

3、下面的代码举例说明了如何获得 Drives 集合,以及如何用 For Each...Next 语句来访问该集合中的每个Drive:Sub ShowDriveList Dim fs, d, dc, s, n Set fs = CreateObject("Scripting.FileSystemObject") Set dc = fs.Drives For Each d in dc s = s & d.DriveLetter & " - " If d.DriveType = Remote Then n = d.ShareName Else n = d.VolumeName End If s = s & n & vbCrLf Next MsgBox sEnd Sub。

本文到此讲解完毕了,希望对大家有帮助。

免责声明:本文由用户上传,如有侵权请联系删除!

关键词:

  
  • 未满19岁的人贩子惊呆网友 拐卖团体年轻化值得社会深思

    未满19岁的人贩子惊呆网友 拐卖团体年轻化值得社会深思
  • 315曝光现榨果汁引发关注 食品行业卫生漏洞还须及时补上

    315曝光现榨果汁引发关注 食品行业卫生漏洞还须及时补上
  • 达达去年增收不增利受关注 净亏损额为24.711亿

    达达去年增收不增利受关注 净亏损额为24.711亿