Drives, propriété

---

Description

Renvoie une collection Drives constituée de tous les objets Drive disponibles sur la machine locale.

Syntaxe

object.Drives

L'argument object représente toujours un objet FileSystemObject.

Notes

Les lecteurs de supports amovibles apparaissent dans la collection Drives même lorsqu'ils sont vides.

Vous pouvez parcourir les membres de la collection Drives en utilisant une structure For Each...Next comme illustré dans le code suivant :

Function 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 = 3 Then
      n = d.ShareName
    ElseIf d.IsReady Then
      n = d.VolumeName
    End If
    s = s & n & "<BR>"
  Next
  ShowDriveList = s
End Function

---