如何确定这个电脑已有多少个驱动器

Question

我想读U盘中的内容 可是不知道怎么确定他盘符名  就是不知道 有C D E F还是别的

Answer 1

ShowDriveList 函数
    Dim fso, d, dc, s, n
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dc = fso.Drives
    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

Answer 2

大哥您直接给我复制了一个VBS的

Answer 3

'列出计算机上所有逻辑磁盘驱动器的属性。包括映射的网络驱动器在内
on error resume next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk")
For each objDisk in colDisks
    Wscript.Echo "Compressed: " & vbTab &  objDisk.Compressed  
    Wscript.Echo "Description: " & vbTab &  objDisk.Description  
    Wscript.Echo "DeviceID: " & vbTab &  objDisk.DeviceID  
    Wscript.Echo "DriveType: " & vbTab &  objDisk.DriveType  
    Wscript.Echo "FileSystem: " & vbTab &  objDisk.FileSystem  
    Wscript.Echo "FreeSpace: " & vbTab &  objDisk.FreeSpace  
    Wscript.Echo "MediaType: " & vbTab &  objDisk.MediaType  
    Wscript.Echo "Name: " & vbTab &  objDisk.Name  
    Wscript.Echo "QuotasDisabled: " & vbTab &  objDisk.QuotasDisabled
    Wscript.Echo "QuotasIncomplete: " & vbTab &  objDisk.QuotasIncomplete
    Wscript.Echo "QuotasRebuilding: " & vbTab &  objDisk.QuotasRebuilding
    Wscript.Echo "Size: " & vbTab &  objDisk.Size  
    Wscript.Echo "SupportsDiskQuotas: " & vbTab & _
        objDisk.SupportsDiskQuotas  
    Wscript.Echo "SupportsFileBasedCompression: " & vbTab & _
        objDisk.SupportsFileBasedCompression  
    Wscript.Echo "SystemName: " & vbTab &  objDisk.SystemName  
    Wscript.Echo "VolumeDirty: " & vbTab &  objDisk.VolumeDirty  
    Wscript.Echo "VolumeName: " & vbTab &  objDisk.VolumeName  
    Wscript.Echo "VolumeSerialNumber: " & vbTab &  _
        objDisk.VolumeSerialNumber  
Next

Answer 4

其实关键就是FSO的DRIVES对象。
Set fso = CreateObject("Scripting.FileSystemObject")
    Set dc = fso.Drives

Answer 5

'列出计算机上所有逻辑磁盘驱动器的属性。包括映射的网络驱动器在内
    '引用wmi
    On Error Resume Next
    Dim strComputer As String, objWMIService, colDisks, objDisk, str As String
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colDisks = objWMIService.ExecQuery _
        ("Select * from Win32_LogicalDisk")
    str = ""
    For Each objDisk In colDisks
      str = str & "Compressed: " & vbTab & objDisk.Compressed & Chr(10) & Chr(13)
      str = str & "Description: " & vbTab & objDisk.Description & Chr(10) & Chr(13)
      str = str & "DeviceID: " & vbTab & objDisk.DeviceID & Chr(10) & Chr(13)
      str = str & "DriveType: " & vbTab & objDisk.DriveType & Chr(10) & Chr(13)
      str = str & "FileSystem: " & vbTab & objDisk.FileSystem & Chr(10) & Chr(13)
      str = str & "FreeSpace: " & vbTab & objDisk.FreeSpace & Chr(10) & Chr(13)
      str = str & "MediaType: " & vbTab & objDisk.MediaType & Chr(10) & Chr(13)
      str = str & "Name: " & vbTab & objDisk.Name & Chr(10) & Chr(13)
      str = str & "QuotasDisabled: " & vbTab & objDisk.QuotasDisabled & Chr(10) & Chr(13)
      str = str & "QuotasIncomplete: " & vbTab & objDisk.QuotasIncomplete & Chr(10) & Chr(13)
      str = str & "QuotasRebuilding: " & vbTab & objDisk.QuotasRebuilding & Chr(10) & Chr(13)
      str = str & "Size: " & vbTab & objDisk.Size & Chr(10) & Chr(13)
      str = str & "SupportsDiskQuotas: " & vbTab & _
              objDisk.SupportsDiskQuotas & Chr(10) & Chr(13)
      str = str & "SupportsFileBasedCompression: " & vbTab & _
              objDisk.SupportsFileBasedCompression & Chr(10) & Chr(13)
      str = str & "SystemName: " & vbTab & objDisk.SystemName & Chr(10) & Chr(13)
      str = str & "VolumeDirty: " & vbTab & objDisk.VolumeDirty & Chr(10) & Chr(13)
      str = str & "VolumeName: " & vbTab & objDisk.VolumeName & Chr(10) & Chr(13)
      str = str & "VolumeSerialNumber: " & vbTab & _
              objDisk.VolumeSerialNumber & Chr(10) & Chr(13)
        str = str & "----------------------------------------------------------------------" & Chr(10) & Chr(13)
    Next
    MsgBox str