Public Sub DirectoryAuswahl()
        Dim dir As New System.IO.DirectoryInfo(MMI.BackupDIR)
        Dim dirfiles = dir.GetDirectories
        Dim dirfile As System.IO.DirectoryInfo
        Dim name As String
 
        Me.lvWiederherstellen.Clear()
        For Each dirfile In dirfiles
            name = Path.GetDirectoryName(dirfile.Name)
            Me.lvWiederherstellen.Items.Add(name)
        Next
    End Sub

mfg
rt