FileListBox

Résolu
nuttyfbr Messages postés 57 Date d'inscription mardi 31 août 2004 Statut Membre Dernière intervention 8 octobre 2006 - 22 juil. 2005 à 16:02
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 22 juil. 2005 à 17:02
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

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
22 juil. 2005 à 16:14
Private Sub File1_Click()

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

End Sub


Daniel
3
cs_frop01 Messages postés 1352 Date d'inscription lundi 27 octobre 2003 Statut Membre Dernière intervention 19 novembre 2008 2
22 juil. 2005 à 16:22
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 !
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
22 juil. 2005 à 17:01
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
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
22 juil. 2005 à 17:02
Hé !!! CanisLupus !! Nuttyfbr est ton rejeton ???
0