Option Explicit
Private Sub Form_Load()
Dim Result() As String
Dim i As Integer
'EXEMPLE d'appel
Result = GetLetterOfAllDisk()
For i = LBound(Result) To UBound(Result)
MsgBox (Result(i))
Next
End Sub
Public Function GetLetterOfAllDisk() As String()
Dim Fso As Object
Dim Dr As Object
Dim i As Integer
Dim Result() As String
Set Fso = CreateObject("Scripting.FileSystemObject")
ReDim Result(Fso.Drives.Count - 1)
i = 0
'Pour chaque lecteur
For Each Dr In Fso.Drives
'On récupère sa lettre pour la mettre
'dans le tableau de résultats
Result(i) = Dr.DriveLetter
i = i + 1
Next
'destruction des objets
Set Dr = Nothing
Set Fso = Nothing
GetLetterOfAllDisk = Result
End Function