PB: Tester si un lecteur existe

Question

Salut,

Je cherche à tester dans une appli les lecteurs existants sur le poste. Voici le code que j'utilise:

On Error GoTo DriveError
For i = 65 To 90
ChDrive (Chr(i))
disques = disques + Chr(i)
suivant:
Next i
        
DriveError:
err = 0
GoTo suivant

Je sais, c'est pas très élégant mais ça devrait marcher. Et c'est pas le cas.
Petites précisions: quand je met une disquette dans le lecteur A, il esquive sans problème B (qui est vide) et bloque sur E (Cd-Rom). Si je retire la disquette, il passe sur A et bloque sur B !!!!

Aidez moi please....
Merci d'avance

cs_dragon · Answer

ça c'est un problème du on error
si tu veut pas te cassé la tête, fait une fonction tester qui reçoi la lettre à tester et qui a le on error. ta boucle appel cette fonction. là tu auras pus de problème

ça arrive souvent si le on error est appeller àplusieurs reprise, il fini par ne plus être actif, donc il plante. Mais si tu appel une fonction a chaque tour de boucle qui vérifie, ça va planté souvent aussi, mais le on error est réinitialiser chaque fois que tu appel la fonction

cs_gorby69 · Answer

Merci du conseil, maintenant ça marche impec...

cs_dragon · Answer

de rien, moi aussi j'avais eu ce genre de problème
pis quand ça amrche pas, faut voir le problème sous un autre angle ;-)