Connaitre la lettre pour les lecteurs de disque FIXE

Question

salut, 

Je voudrais connaitre la lettre des lecteurs de disques FIXE UNIQUEMENT sans prendre a: par exemple ni les lecteurs de CD et/ou DVD 

Merci et a+

cs_sjon · Answer

sael og blesud (salut)

sur une feuille met les controles suivants:
drivebox
listbox
commandbutton

voici le code

Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim n, typel%

Private Sub Command1_Click()
For n = 0 To Drive1.ListCount - 1
typel% = GetDriveType(Drive1.List(n) + "")
If typel% = 3 Then
List1.AddItem Drive1.List(n)
End If
Next n
End Sub

la liste contient les lettres des disques fixes uniquement

pour infos

Private Const DRIVE_CDROM = 5
Private Const DRIVE_FIXED = 3
Private Const DRIVE_RAMDISK = 6
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_REMOVABLE = 2

cdrom = 5
hda = 3 ...etc ...

Apodemus · Answer

voici un code pour lister les drives avec 2 API

Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

sub ListeDrives()
Dim drv As Long, i As Long 
Dim drvs() As String, nb As Integer
  lds = GetLogicalDrives()
  For i = 0 To 25 
      If (lds And 2 ^ i) <> 0 Then
        nb = nb + 1
        ReDim Preserve drvs(nb)
        drvs(nb) = Chr$(65 + i) & ":"
      End If
  Next
  For i = 1 To nb
    Debug.Print drvs(i) & vbTab & GetDriveType(drvs(i))
  Next
end sub
les valeurs sont 
2 = disquette ou removable
3 = disque fixe
4 = reseau mapé
5 = cdrom (peut-etre DVD)
6 = ram disk

Connaitre la lettre pour les lecteurs de disque FIXE

2 réponses

Discussions similaires