BOOL __stdcall GetLetterOfAllDisk(CHAR cLetter[],BYTE bySize,BYTE * byRequired){
     DWORD dwBitsMask;
     CHAR cDrv = 'A';
     
     if(byRequired == NULL)return FALSE;
     *byRequired = 0;
     if(!(dwBitsMask = GetLogicalDrives())) return FALSE;
     do{           
         if(dwBitsMask & 1)
         {
            cLetter[*byRequired] = cDrv;
            (*byRequired)++;
            if(*byRequired > (bySize-1))break;
         }
         cDrv++;
     }while(dwBitsMask >>= 1);
     
     while(dwBitsMask >>= 1)
     {           
         if(dwBitsMask & 1)
         (*byRequired)++;
     }
     if(*byRequired > bySize)return FALSE;
     else return TRUE;
}
Version 2, plus légère mais sans controle, appelant responsable de passer un buffer de 26 octets mini.
Retourne le nombre de volumes inscrits.
DWORD __stdcall bnLettresVolumes(BYTE *pvols26)
{
  DWORD dwBitsMask, n = 0;
  BYTE v = 'A';
  if(!(dwBitsMask = GetLogicalDrives())) return 0;
  do {
    if(dwBitsMask & 1) pvols26[n++] = v;
    v++;
  } while(dwBitsMask >>= 1);
  return n;
}

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 

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 

import java.io.File;
/**
  * Lister les lecteurs logiques du système.
  * 
  * @return String[] tableau de chaînes de caractères contenant tous les noms
  *                  des lecteurs logiques du système.
  */
public static String[] getRoots() {
    File[] roots = File.listRoots();
    String[] names = new String[roots.length];
    for (int i = 0; i < roots.length; ++i) 
        names[i] = roots[i].getName();
    return names;
}