RECHERCHE DANS RÉPERTOIRE

---

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

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 .

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

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

• TREEVIEW CONNECTÉ À UNE BD UTILISANT LE CLICK DROIT DE LA SOURIS EN ADO
• RECHERCHE DANS UNE BASE DE DONNÉES EN ADO

• LAUTREESIZE
• MP3REN - RENOMMEUR DE MP3
• [VB6] YMXPLORER : DOUBLE EXPLORATEUR DE FICHIERS
• CREATION DE FICHIER ASX POUR LECTURE EN STREAMING SUR UN SITE WEB
• CHKDSKSPC- CHECK DISK SPACE / AFFICHAGE DE L'ÉTAT D'OCCUPATION DES DISQUES