A voir également:
- Comment ouvrir un TXT dans un Textbox a partir d'un autre TXT ???
- Img to txt - Forum Visual Basic
- Vba ouvrir un fichier excel sans l'afficher ✓ - Forum Visual Basic 6
- Comment ouvrir un fichier tar gz - Forum Visual Basic
- Textbox - Forum Visual Basic
- Vba ouvrir un fichier csv ✓ - Forum VB.NET
1 réponse
salut
essaie ça (je ne l'ai pas testé mais bon ça devrait coller)
Private Sub List1_Click()
Dim a As Long
Dim NomText as string
NomText= List1.List(List1.ListIndex) & ".txt"
'il faut bien sûr lui spécifier le chemin du fichier en plus...
a = FreeFile()
Open NomText For Input As #a
text1.Text = Input(LOF(a), a)
Close #a
End Sub
par contre je ne vois pas l'interet de mettre 2 fois les noms de fichiers (avec et sans l'extension) dans ton fichier tout.txt
A plus tard :big)
essaie ça (je ne l'ai pas testé mais bon ça devrait coller)
Private Sub List1_Click()
Dim a As Long
Dim NomText as string
NomText= List1.List(List1.ListIndex) & ".txt"
'il faut bien sûr lui spécifier le chemin du fichier en plus...
a = FreeFile()
Open NomText For Input As #a
text1.Text = Input(LOF(a), a)
Close #a
End Sub
par contre je ne vois pas l'interet de mettre 2 fois les noms de fichiers (avec et sans l'extension) dans ton fichier tout.txt
A plus tard :big)
