2743 connectés

FORUM HardWare.fr

Programmation

DriveListBox en VB

Recherche :

Dernière réponse
Sujet : DriveListBox en VB
Doudos	Je pense que c'est ce que tu cherches ... Private Sub Drive1_Change() On Error Resume Next OldPath$ = Dir1.Path Dir1.Path = Drive1.Drive If Err = 68 Then Dir1.Path = OldPath$ MsgBox "Message d'erreur !", vbCritical + _ vbOKOnly, "Error" Drive1.Drive = "C:\" Dir1.Path = "C:\Mes documents" File1.Path = Dir1.Path End If End Sub

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Doudos

Je pense que c'est ce que tu cherches ...

Private Sub Drive1_Change()
On Error Resume Next

OldPath$ = Dir1.Path

Dir1.Path = Drive1.Drive
If Err = 68 Then
Dir1.Path = OldPath$
MsgBox "Message d'erreur !", vbCritical + _
vbOKOnly, "Error"
Drive1.Drive = "C:\"
Dir1.Path = "C:\Mes documents"
File1.Path = Dir1.Path
End If
End Sub

Carbon_14

Peut-être faire un "on error goto xxx" avant l'appel, et voir quelle est l'erreur générée (en mode "point d'arrêt" (ça existait sous VB3)) pour la dérouter ensuite automatiquement (signaler que le lecteur n'est pas prêt, est vide, a disparu ..)
sans oublier "on error go to 0" ensuite avant de quitter le SUB pour pas avoir de pb ailleurs.

HelloWorld

pourkoi tu utilises ce composant ? si c pour enregister/ouvrir un document, c p'tet mieux et + simple une boite de dialogue "ouvrir" non ?

super_pointeur

Comment faire pour ne pas provoquer d'erreur du programme lorsqu'on clique sur un lecteur cd-rom qui ne contient pas de CD ? Est-il possible de le gérer par windows (attendre que le périphérique soit prêt) .
Merci d'avance.