Bonjour,
J'ai récupérer ce code sur le site de microsoft mais je voudrais afficher la liste des lecteurs dans un combobox. Je travaille avec le vb de excel. J'ai fait des essais mais ca marchait pas.
Sub ListeUnites()
Const Remote = 3
Dim fs ' As Scripting.FileSystemObject
Dim d ' As Drive
Dim sResult ' As String
Dim s ' As String
On Error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.Drives
sResult = sResult & d.DriveLetter & " - "
If d.DriveType = Remote Then
s = d.ShareName
Else
s = d.VolumeName
End If
sResult = sResult & s & vbCrLf
Next
MsgBox sResult
End Sub
Merci pour votre aide
Partager