Problème avec un FileListBoxRésolu

Question

Bonjour,
J'ai un probl&#232;me avec un FileListBox,
En fait j'ai des fichier .txt qui s'affiche dans ma FileListBox et je voudrait qu'il s'affiche dans un TextBox en selectionnant le fichier dans le FileListBox puis en cliquant sur un bouton.
Comment Faire ?????

A++
Guillaume

Gobillot · Accepted Answer

est ce que t'as mis le DirListBox ?



Les trois vont ensemble:

DriveListBox + DirListBox + FileListBox

Daniel

Gobillot · Answer

Private Sub File1_Click()

    Text1.Text = File1.List(File1.ListIndex)

End Sub


Daniel

astrosug44 · Answer

En fait la ca marche mais c'est le nom du fichier qui s'affiche dans le TextBox. 
Moi je voudrait  que ce soit le contenu du fichier qui s'affiche dans TextBox ????

Gobillot · Answer

Le TextBox en Multilignes



Private Sub File1_Click()

    Dim nom  As String

    nom = Dir1.List(Dir1.ListIndex) & "" & File1.List(File1.ListIndex)

    Open nom For Input As #1

      Text1.Text = Input$(LOF(1), 1)

      Close #1

End Sub


Daniel

astrosug44 · Answer

Bizarre ca devrait march&#233; pourtant mais j'ai un messages d'erreur ( Erreur '424' un objet est requis) et quand je fais d&#233;boguage ca me renvoie a cette ligne :
nom = Dir1.List(Dir1.ListIndex) & ""& File1.List(File1.ListIndex)
?????????

Guillaume

astrosug44 · Answer

c'est bon ca fonctionne j'avais oubli&#233; de mettre Dir et DriveListBox.
Sinon comment faire si ont veut supprimer un &#233;lement d'une FileListBox ????

Merci pour Tous

A++
Guillaume

Gobillot · Answer

on peut pas supprimer, seulement s&#233;lectionner.

il faudrait copier le tout dans une ListBox et cacher la FileListBox.



File1.Pattern = "*.txt;*.doc"


Daniel

Problème avec un FileListBox

7 réponses

Discussions similaires