枚举系统驱动器的脚本备用

最新推荐文章于 2018-07-29 08:47:24 发布

shiff

最新推荐文章于 2018-07-29 08:47:24 发布

阅读量552

点赞数

分类专栏： windows脚本技术文章标签：脚本 network disk each

本文链接：https://blog.csdn.net/shiff/article/details/1918977

版权

windows脚本技术专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Sub ShowDriveType()

    Set fso = CreateObject("Scripting.FileSystemObject")
    drTypeAll = ""

    For Each drv In fso.Drives

       Select Case drv.DriveType
       Case 0: drType = "Unknown"
       Case 1: drType = "Removable"
       Case 2: drType = "Fixed"
       Case 3: drType = "Network"
       Case 4: drType = "CD-ROM"
       Case 5: drType = "RAM Disk"
       End Select

       If drv.IsReady Then
          drTypeAll = drTypeAll + drv.DriveLetter + " Type:" + drType + " SR:" + CStr(drv.SerialNumber)
       Else
          drTypeAll = drTypeAll + drv.DriveLetter + " Type:" + drType + " SR:" + "未准备好"
       End If
       drTypeAll = drTypeAll + vbCrLf

    Next
    MsgBox drTypeAll