Imports System.IO
 
Public Class Form1
    Private pfad As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ListView1.View = System.Windows.Forms.View.Details
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
        Then
            pfad = OpenFileDialog1.FileName
            TextBox1.Text = String.Empty
            Try
                TextBox5.Text = File.ReadAllText(pfad)
            Catch
            End Try
            ' Dateipfad in der Titelleiste des Formulars anzeigen:
            Me.Text = pfad
        End If
 
    End Sub
 
 
End Class