Browser de fichiers

0/5 (3 avis)

Vue 4 691 fois - Téléchargée 401 fois

Description

voici comment lier les composants Drive ,Dir et FileListBox entres eux

PS : reservé aux hyper novices

Source / Exemple :


Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_DblClick()
    MsgBox Dir1.Path & "\" & File1.FileName
End Sub

Conclusion :


double cliquer sur un nom de fichier pour qu'il s'affiche dans une boite de message

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

safireevil
Messages postés
18
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
23 septembre 2002
-
hou hou hou !!!
trop con !
gg00xiv
Messages postés
656
Date d'inscription
mercredi 22 août 2001
Statut
Membre
Dernière intervention
11 mars 2005
12 -
relit ce que tu as ecrit ca veux rien dire
vanpet
Messages postés
149
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
5 février 2006
-
il y a une erreur : il se peut que le chemin soit "C:" et tu rajoute "" donc ça donne "C:\fichier.ext". Il faut donc faire un petit test :
if right(dir1.path,1)="" then
chemin = ""
else
chemin= ""
end if

chemin étant bien entendu une variable de type string que tu insere entre dir1.path et file1.filename.

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.