Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each Str As String In GetLetterOfAllDisk()
MessageBox.Show (Str)
Next
End Sub
Public Function GetLetterOfAllDisk() As String()
'On dimensione le tableau de retourne
Dim result(My.Computer.FileSystem.Drives.Count - 1) As String
Dim i As Integer = 0
'Pour chaque Lecteur on stock le nom dans
'le tableaux de resultats
For Each Dr As System.IO.DriveInfo In My.Computer.FileSystem.Drives
result(i) = Dr.Name
i += 1
Next
Return result
End Function