DriveListBox ???

Question

salut à tous,

comment faire pour gérer une drivelistbox lorsque le drive que l'on sélectionne n'est pas disponnible...
je m'explique:
admettons que j'ai un lecteur a: dans lequel il n'y a pas de diskette, je séléctionne ce périphérique dans ma drivelistbox, comment faire pour détecter qu'il n'y a pas de diskette...

Merci à tous

sindbad · Answer

Supposons que votre control s'appel drv
 mettez le code suivant dans la sub: drv_change ()

  static oldindex as integer 
  on error goto err 

  oldindex = drv.listindex  ' Garder trace du   
                            ' precedent drive
  exit sub

err:
  msgbox "Drive not ready!"
  drv.listindex = oldindex

Bonne chance
Sindbad

mémère · Answer

Private Sub Drive1_Change()
 On Error Resume Next
 
 OldPath$ = Dir1.Path
 
 Dir1.Path = Drive1.Drive
 If Err = 68 Then
  Dir1.Path = OldPath$
  MsgBox "Périphérique non disponible!"
 End If
End Sub

Mémère

sindbad · Answer

-------------------------------
 Réponse au message :          
-------------------------------

 Supposons que votre control s'appel drv
 mettez le code suivant dans la sub: drv_change ()

  static oldindex as integer 
  on error goto err 

  oldindex = drv.listindex  ' Garder trace du   
                            ' precedent drive
  exit sub

err:
  msgbox "Drive not ready!"
  drv.listindex = oldindex

Bonne chance
Sindbad

DriveListBox ???

3 réponses

Discussions similaires