Drives, collection

---

Description

Collection en lecture seule de tous les lecteurs disponibles.

Notes

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

Le code suivant illustre la lecture de la collection Drives et son itération à l'aide de l'instruction For Each...Next :

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

---