Discussion :

[pepper]

Salut,

je voudrais tester le type de lecteur choisi dans une combo drive, de manière à n'agir que si un lecteur CD est sélectionné.

J'ai lu sur le forum qu'il fallait juste déterminer le drivetype.
Seulement, qd je tape le code, c'est une propriété que vb ne me propose pas !!
Sauriez vous quelle référence indiquer, et aussi quel est le code du drivetype "lecteur de CD-rom" ou ""Dvd-rom" ou "graveur de cd-rom" ??

[DarkVader]

La référence c'est Mivcrosoft Scripting runtime
pour le reste, avec la fonction rechercher + drivetype, ça doit le faire

[pepper]

Merci, mais même avec microsoft scripting runtime coché, il ne me sert un

method or data member not found

sur le drivetype :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Drive1.DriveType <> CDRom Then Exit Sub

[DarkVader]

Effectivement, vu ainsi %(

Sinon, j'aurais fait l'inverse
récupèrer à l'avance avec le FileSystemObejct la liste des lecteurs et leur type

ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Dim fso As New FileSystemObject, d As Drive, tmp(), x As Integer
    For Each d In fso.Drives
        ReDim Preserve tmp(0 To 1, 0 To x)
        tmp(0, x) = d.DriveLetter
        tmp(1, x) = d.DriveType      '4:CD-ROM
        x = x + 1
    Next

ensuite seulement, utiliser le tableau dans le drivelist ou même une bêtement une zone de liste limitée aux seuls lecteurs CD

[pepper]

Excellente idée !!!!

Par contre, euh .... je sais pas utiliser les tableaux ...
Tu sais ensuite comment passer les lecteurs concernés dans le contrôle drive ?

[DarkVader]

Quel est l'intérêt d'utiliser un drivelistbox plutôt qu'un combo
puisque tu limites l'accès aux seuls lecteurs CD ?
Si tu y tiens vraiment, intervient sur l'évènement change du drivelist
dans le cas où le choix de l'utilisateur n'est pas celui que tu désires
et en positionnant à l'ouverture sur le premier lecteur de CD
( ex: Me.Drive1.Drive = "E" )

[pepper]

Pardon, je pensais qu'on pouvais restreindre un drivelistbox.
J'ai préféré ta solution avec un listbox simple.

Merci, Dark.