Récupérer la lettre des lecteurs.

Commenter

Contenu du snippet 

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

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

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.

Du même auteur (deck_bsd)