Drives, collection

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

Propriétés

Count, propriété | Item, propriété

Méthodes

La collection Drives n'a pas de méthode.

Voir aussi