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
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.