Hola, estamos bien gracias!
¿
Abrir todos los archivos?. No le encuentro sentido a eso, ¿qué es lo que quieres hacer?
Para listar todos los archivos de una carpeta con cierta extensión:
Código vb:
Ver originalPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Diri As New DirectoryInfo("C:\Mis documentos")
Dim Arch() As FileInfo = Diri.GetFiles("*.txt")
If Arch.Length > 0 Then
For Each f As FileInfo In Arch
ListBox1.Items.Add(f.Name)
Next
End If
End Sub
Para abrir un archivo con la clase StreamReader:
Dim sr As StreamReader = File.OpenText("C:\Mis documentos\Archivo.txt")
El espacio de nombres a importar es
System.IO
Un saludo