ltvItem = lst_datei.Items.Add(objDateien(i).ToString)

        'Daten aus dem Tag auslesen und in einem String umkonvertieren
        pfad = CType(lst_datei.FocusedItem.Tag, String)

Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
'" Vom Windows Form Designer generierter Code "
 
 
    Private Sub cmd_refresh_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_refresh.Click
        Dim i As Integer
        Dim objDateien() As System.IO.FileInfo
 
        'Das einzelne EintragObjekt
        Dim ltvItem As New ListViewItem
 
        lst_datei.Items.Clear()
        objDateien = New DirectoryInfo("E:\").GetFiles()
        For i = 0 To objDateien.GetUpperBound(0)
            ltvItem = lst_datei.Items.Add(objDateien(i).ToString)
            ltvItem.Tag = objDateien(i).FullName
        Next
 
    End Sub
 
    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles ListView1.DoubleClick
        Dim pfad As String
 
        'Daten aus dem Tag auslesen und in einem String umkonvertieren
        pfad = CType(lst_datei.FocusedItem.Tag, String)
 
        'Entsprechende Datei starten:
        Process.Start(pfad)
    End Sub
 
End Class