FileListBox

Résolu
Signaler
Messages postés
57
Date d'inscription
mardi 31 août 2004
Statut
Membre
Dernière intervention
8 octobre 2006
-
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
Heu ... Hello,j'aimerais pour commencer, que dans le code suivant :



Dim s As String



Open "Nom du fichier" For Input As #1

Input #1, s
Label1.Caption = s


Input #1, s



Label2.Caption = s


Input #1, s



Label3.Caption = s


Close #1



Que le "Nom du fichier" soit le fichier sélectionné dans une FileListBox (File1).



Merci ...


NuttyKizzy

4 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
Private Sub File1_Click()

MsgBox File1.Path & "" & File1.List(File1.ListIndex)

End Sub


Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
1352
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
2
salut,



regardes dans mes codes sources.



Bonne continuation
PS: Si votre problème est résolu, prière de bien vouloir clôturer votre message par une réponse acceptée !
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Avec une petite amélioration en plus, cela donne :

Open File1.Path & "" & File1.List(File1.ListIndex) For Input As #1
Input #1, Label1.Caption
Input #1, Label2.Caption
Input #1, Label3.Caption
Close #1
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Hé !!! CanisLupus !! Nuttyfbr est ton rejeton ???