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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.