Partager via


Collection Drives

Collection en lecture seule de tous les lecteurs disponibles.

Remarques

Les lecteurs de supports amovibles apparaissent dans la collection Drives même lorsqu’aucun support amovible n’y est inséré.

Le code suivant montre comment obtenir la collection Drives et itérer la collection à l’aide de For Each... Instruction suivante :

Sub ShowDriveList
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = Remote Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.