Recherche dans répertoire

Télécharger le projet
Commenter

Description

Suite à une demande qui m'a été faite je joins un petit code qui permet de rechercher un fichier dans un répertoire particulier sur le disque dur ou autre support (disquette ou CD). Gestion d'erreur si le périphérique n'est pas disponible. Ici, dans ce code je viens rechercher un fichier image que j'affiche .

Source / Exemple : 


Private Sub Dossier_Change()
    Fichiers.Path = Dossier.Path
End Sub

Private Sub Fichiers_Click()
    Dim Nomfic As String
    Nomfic = Fichiers.Path
    If Right(Nomfic, 1) <> "\" Then Nomfic = Nomfic & "\"
    Nomfic = Nomfic & Fichiers.FileName
    Image1.Picture = LoadPicture(Nomfic)
    Picture1.Picture = LoadPicture(Nomfic)
End Sub

Private Sub Lecteur_Change()
On Error GoTo TraiteErreur
    Dossier.Path = Lecteur.Drive
    Exit Sub
TraiteErreur:
    Dim Reponse As Integer
    Reponse = MsgBox(Err.Description, 5, "Erreur")
    If Reponse = 4 Then Resume
End Sub

Conclusion :


Au niveau de l'image un controle Image a été crée superposé par un contrôle PictureBox
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_seb)