My.Settings.Pfad1 = TextBox1.Text
        My.Settings.Save()
        My.Settings.Reload()
        My.Settings.Pfad2 = TextBox2.Text
        My.Settings.Save()
        My.Settings.Reload()

Dim dt As DateTime, fname As String = String.Empty
     For Each fi As String In IO.Directory.GetFiles("Pfad")
            If IO.File.GetLastWriteTime(fi) > dt Then
                dt = IO.File.GetLastWriteTime(fi)
                fname = IO.Path.GetFileName(fi)
            End If
     Next
Me.Text = dt & " , " & fname

Public Class FileSystemStuff
 
    Public Class FilesystemStuffArgs
        Inherits EventArgs
        Private _count As Integer = 0
 
        Friend Sub New(Count As Integer)
            _count = Count
        End Sub
 
        ''' <summary>Anzahl gelisteter Dateien</summary>
        Public ReadOnly Property Count() As Integer
            Get
                Return _count
            End Get
        End Property
    End Class
 
 
    Public Class FileInformation
        ''' <summary>Name und Extensions der Datei</summary>
        Public ReadOnly name As String
        '''<summary>Name des Ordners/Unterordners</summary>
        Public ReadOnly folder As String
        Public ReadOnly fullpath As String
        Public ReadOnly length As Long
        Public ReadOnly LastWriteTime As Date
        Public ReadOnly IsReadonly As Boolean
 
 
        Friend Sub New(fi As IO.FileInfo)
 
            With fi
                name = .Name
                fullpath = .FullName
                folder = IO.Path.GetFileName(.DirectoryName)
                length = .Length
                LastWriteTime = .LastWriteTime
                IsReadonly = .IsReadOnly
            End With
        End Sub
 
    End Class
 
 
    Public FileInformationArray() As FileInformation
 
    Public Event Progress(ByVal sender As Object, e As FilesystemStuffArgs)
    Public Event Finished(ByVal sender As Object, e As FilesystemStuffArgs)
 
 
    ''' <summary>Abfrage der Angaben zu den Dateien in einem Ordner</summary>
    ''' <param name="folder">Ordner</param>
    ''' <param name="so">Unterordner einbeziehen?</param>
    Public Sub CreateFolderFileInfos(ByVal folder As String, _
        Optional so As IO.SearchOption = IO.SearchOption.TopDirectoryOnly)
 
        FileInformationArray = Nothing
 
        If Not IO.Directory.Exists(folder) Then Exit Sub
 
        Dim filelist As New List(Of FileInformation)(200)
        Dim c As Integer = 0
        For Each file As String In IO.Directory.EnumerateFiles(folder, "*.*", _
          so)
            If c Mod 10 = 0 Then
                RaiseEvent Progress(Me, New FilesystemStuffArgs(c))
            End If
            Dim fi As New IO.FileInfo(file)
            filelist.Add(New FileInformation(fi))
            c += 1
        Next file
        FileInformationArray = filelist.ToArray
        RaiseEvent Finished(Me, New FilesystemStuffArgs(c))
    End Sub
 
End Class

Public Class Form1
 
    Private WithEvents FileStuff As New FileSystemStuff
 
    Dim WithEvents btnStart As New Button With _
    {.Parent = Me, .Width = 300, .Text = "Dateien listen"}
 
    Private lblinfo As New Label With _
        {.Parent = Me, .Size = New Size(300, 100), .Top = 50, _
         .AutoSize = False}
 
    Dim infotext As String = ""
 
    Private lboFiles As New ListBox With _
        {.Parent = Me, .Top = 170, .Size = New Size(300, 200), _
         .HorizontalScrollbar = True}
 
 
    Private Sub Form1_Load(sender As System.Object, _
         e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(320, 480)
    End Sub
 
 
    Private Sub FileStuff_Progress(sender As Object, _
        e As FileSystemStuff.FilesystemStuffArgs) _
        Handles FileStuff.Progress
 
        infotext = _
        "Dateien werden gelistet" & vbCrLf & "Ermittelt: " & e.Count.ToString
 
        If lblinfo.InvokeRequired Then
            lblinfo.Invoke(New MethodInvoker(AddressOf SetInfoText))
        Else
            SetInfoText()
        End If
 
    End Sub
 
 
    Private Sub FileStuff_Finished(sender As Object, _
            e As FileSystemStuff.FilesystemStuffArgs) _
            Handles FileStuff.Finished
 
        infotext = _
          "Dateien sind gelistet worden " & vbCrLf & _
          "Gesamtzahl: " & e.Count.ToString
 
        lblinfo.Invoke(New MethodInvoker(AddressOf SetInfoText))
        lboFiles.Invoke(New MethodInvoker(AddressOf SetFileList))
    End Sub
 
 
    Private Sub SetInfoText()
        lblinfo.Text = infotext
    End Sub
 
 
    Private Sub SetFileList()
        lboFiles.Items.Clear()
        For Each it As FileSystemStuff.FileInformation _
            In FileStuff.FileInformationArray
 
            lboFiles.Items.Add _
            (it.name & vbTab & " (" & it.folder & ")  " & vbTab & _
             it.LastWriteTime.ToString)
        Next it
    End Sub
 
 
    Private Sub btnStart_Click(sender As Object, _
        e As System.EventArgs) Handles btnStart.Click
 
        Dim th As New Threading.Thread _
        (New Threading.ThreadStart(AddressOf CreateFileList))
        th.Start()
    End Sub
 
 
    Private Sub CreateFileList()
        'Ordner
        Dim myfolder As String = "C:\Daten"
        FileStuff.CreateFolderFileInfos _
           (myfolder, IO.SearchOption.AllDirectories)
    End Sub
 
End Class

Public Class Form1
 
    Private WithEvents FileStuff As New FileSystemStuff
 
    Dim infotext As String = ""
 
    Private Sub FileStuff_Progress(sender As Object, e As _
      FileSystemStuff.FilesystemStuffArgs) Handles FileStuff.Progress
 
        infotext = "Dateien werden gelistet" & vbCrLf & "Ermittelt: " & _
          e.Count.ToString
 
        If lblinfo.InvokeRequired Then
            lblinfo.Invoke(New MethodInvoker(AddressOf SetInfoText))
        Else
            SetInfoText()
        End If
 
    End Sub
 
    Private Sub FileStuff_Finished(sender As Object, e As _
      FileSystemStuff.FilesystemStuffArgs) Handles FileStuff.Finished
 
        infotext = _
          "Dateien sind gelistet worden " & vbCrLf & _
          "Gesamtzahl: " & e.Count.ToString
 
        lblinfo.Invoke(New MethodInvoker(AddressOf SetInfoText))
        lboFiles1.Invoke(New MethodInvoker(AddressOf SetFileList))
    End Sub
 
 
    Private Sub SetInfoText()
        lblinfo.Text = infotext
    End Sub
 
 
    Private Sub SetFileList()
        lboFiles1.Items.Clear()
        For Each it As FileSystemStuff.FileInformation In _
          FileStuff.FileInformationArray
 
            lboFiles1.Items.Add(it.LastWriteTime.ToString("yyyy.MM.dd" & _
              "HH:mm:ss") & vbTab & it.fullpath)
        Next it
    End Sub
 
 
    Private Sub CreateFileList()
        'Ordner
        Dim myfolder As String = TextBox1.Text
        FileStuff.CreateFolderFileInfos(myfolder, _
          IO.SearchOption.AllDirectories)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
        End If
        Dim th As New Threading.Thread(New Threading.ThreadStart(AddressOf _
          CreateFileList))
        th.Start()
 
    End Sub
 
End Class

Public Class FileInformation
    Implements IComparable(Of FileInformation)
 
    ''' <summary>Name und Extensions der Datei</summary>
    Public ReadOnly name As String
    '''<summary>Name des Ordners/Unterordners, in dem sich die Datei 
    ' befindet</summary>
    Public ReadOnly folder As String
    ''' <summary>Laufwerk, Pfad und Name der Datei</summary>
    Public ReadOnly fullpath As String
    ''' <summary>Länge der Datei in Bytes</summary>
    Public ReadOnly length As Long
    ''' <summary>Datum der letzten Änderung</summary>
    Public ReadOnly LastWriteTime As Date
    ''' <summary>Schreibschutz gesetzt?</summary>
    Public ReadOnly IsReadonly As Boolean
 
 
    Friend Sub New(fi As IO.FileInfo)
 
       With fi
          name = .Name
          fullpath = .FullName
          folder = IO.Path.GetFileName(.DirectoryName)
          length = .Length
          LastWriteTime = .LastWriteTime
          IsReadonly = .IsReadOnly
       End With
    End Sub
 
 
    Public Function DateTime_CompareTo(other As FileInformation) As Integer _
        Implements System.IComparable(Of FileInformation).CompareTo
 
        Dim diff As Long = Me.LastWriteTime.Ticks - other.LastWriteTime.Ticks
        If Math.Abs(diff) < TimeSpan.TicksPerMinute Then
           Return 0 'Differenz kleiner 1 Sekunde gilt als gleichzeitig !!!
        ElseIf diff >= TimeSpan.TicksPerSecond Then
           Return 1
        Else
           Return -1
        End If
 
        End Function
 End Class

Public Sub SortDateTime(ByVal sortorder As SortOrder)
 
    Array.Sort(FileInformationArray)
 
    If sortorder = Windows.Forms.SortOrder.Descending Then
       Array.Reverse(FileInformationArray)
    End If
End Sub

Dim lvwFileInformation As New ListView With _
   {.Parent = Me, .Top = 170, .Size = New Size(300, 200)}
 
Private Sub SetFileList()
 
   With lvwFileInformation
      'Listview vorbereiten
      .Items.Clear()
      .Columns.Clear()
      .View = View.Details
      .Columns.Add("Name", 100)
      .Columns.Add("LastWriteTime", 150)
      .Columns.Add("Folder", 150)
 
      'Sortieren des Array
      FileStuff.SortDateTime(SortOrder.Descending)
 
      'Array-Daten in ListviewItems eintragen
      For i As Integer = 0 To FileStuff.FileInformationArray.Length - 1
         Dim it As FileSystemStuff.FileInformation = _
                FileStuff.FileInformationArray(i)
         Dim lvi As ListViewItem = .Items.Add(it.name)
         lvi.SubItems.Add(it.LastWriteTime.ToString)
         lvi.SubItems.Add(it.folder)
      Next i
   End With
 
End Sub

Private Sub FileStuff_Finished(sender As Object, _
            e As FileSystemStuff.FilesystemStuffArgs) Handles FileStuff.Finished
    infotext = _
       "Dateien sind gelistet worden " & vbCrLf & "Gesamtzahl: " & _
       e.Count.ToString
 
    lblinfo.Invoke(New MethodInvoker(AddressOf SetInfoText))
    lvwFileInformation.Invoke(New MethodInvoker(AddressOf SetFileList))
End Sub

EALA FREYA FRESENA

Private Sub ListView1_KeyDown(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown
        If e.KeyCode = 8 Or e.KeyCode = 46 Then
            For i As Long = ListView1.SelectedIndices.Count - 1 To 0 Step -1
                ListView1.Items.RemoveAt(ListView1.SelectedIndices(i))
            Next
 
        End If
 
    End Sub

 With ListView1
    If .SelectedIndices.Count = 1 Then
       Dim index As Integer = .SelectedIndices(0)
       .Items.RemoveAt(index)
       index = Math.Min(index, .Items.Count - 1)
       if index >=0 then .Items(index).Selected = True
    End If
 End With

Private WithEvents fsw As New IO.FileSystemWatcher With_
    {.EnableRaisingEvents = False}

 Private Sub FileStuff_Finished(sender As Object, _
            e As FileSystemStuff.FilesystemStuffArgs) Handles FileStuff.Finished
 
        infotext = _
          "Dateien sind gelistet worden " & vbCrLf & "Gesamtzahl: " & _
          e.Count.ToString
 
        lblinfo.Invoke(New MethodInvoker(AddressOf SetInfoText))
        lvwFileInformation.Invoke(New MethodInvoker(AddressOf SetFileList))
 
        If FileStuff.FileInformationArray.Length > 0 Then
            With fsw
                'zu überwachende Dateien (Muster) 
                .Filter = "*.*"
                'zu überwachender Ordner 
                .Path = _
                IO.Path.GetDirectoryName _
                  (FileStuff.FileInformationArray(0).fullpath)
 
                .IncludeSubdirectories = True
                'Aktivierung des Watchers 
                .EnableRaisingEvents = True
            End With
        Else
            'Keine Dateien gelistet - Watcher????
            fsw.EnableRaisingEvents = False
        End If
    End Sub

Private FullPathToList As String
 
Private Sub fsw_Created(sender As Object, _
        e As System.IO.FileSystemEventArgs) Handles fsw.Created
 
        'Die Überwachung läuft im Hintergrund (InvokeRequired)
        FullPathToList = e.FullPath 'neue Datei
        lvwFileInformation.Invoke _
         (New MethodInvoker(AddressOf AddListItem))
End Sub
 
 
Public Sub AddListItem()
 
   If Not IO.File.Exists(FullPathToList) Then Exit Sub
   Dim fi As New IO.FileInfo(FullPathToList)
 
   With ListView1
      'Item mit Dateiangaben füllen
      Dim lvi As ListViewItem = .Items.Add(fi.Name)
      lvi.SubItems.Add(IO.Path.GetFileName(fi.DirectoryName))
      lvi.SubItems.Add(fi.LastWriteTime.ToString)
      'neues Item farbig markieren
      lvi.BackColor = Color.LightCyan
    End With
End Sub

lvi.BackColor = Color.LightCyan

 
 Private Function GetLWT(ByVal index As Integer) As Date
    'liest/konvertiert die LastWriteTime aus dem Item am Index
    Return CDate(ListView1.Items(index).Text)
 End Function
 
 
 Public Sub InsertListItem()
 
     If Not IO.File.Exists(FullPathToList) Then Exit Sub
     Dim fi As New IO.FileInfo(FullPathToList)
 
     Dim lwt As Date = fi.LastWriteTime
     Dim lvi As ListViewItem = Nothing
 
     'Voraussetzung:
     'ListViewItems sind nach Änderungszeit in Spalte 0 fallend sortiert
     With ListView1
        If lwt >= GetLWT(0) Then
           'frisch geänderte Datei in Ordner eingefügt: an den Listen-Anfang
           lvi = .Items.Insert(0, lwt.ToString)
        ElseIf lwt <= GetLWT(.Items.Count - 1) Then
           'uralte Datei in Ordner eingefügt: anhängen
           lvi = .Items.Add(lwt.ToString)
        Else
           For i As Integer = 0 To .Items.Count - 2
              If lwt < GetLWT(i) AndAlso lwt >= GetLWT(i + 1) Then
                 'Angaben zur Datei in sortierter Liste einordnen
                 lvi = .Items.Insert(i + 1, lwt.ToString)
                 Exit For
              End If
           Next i
        End If
    End With
 
    With lvi
       'Angaben im neuen Listitem ergänzen
       .SubItems.Add(fi.Name)
       .SubItems.Add(fi.FullName)
       'farblich als neu markieren
       .BackColor = Color.LightCyan
       .UseItemStyleForSubItems = True
    End With
End Sub

Private Sub fsw_Created(sender As Object, _
    e As System.IO.FileSystemEventArgs) Handles fsw.Created
    FullPathToList = e.FullPath
    listview1.Invoke(New MethodInvoker(AddressOf InsertListItem))
End Sub

 
 Private Sub fsw_changed(sender As Object, _
        e As System.IO.FileSystemEventArgs) Handles fsw.Changed
 
    FullPathToList = e.FullPath
    lvwFileInformation.Invoke _
        (New MethodInvoker(AddressOf AdjustListItem))
 End Sub
 
 
 Private Sub AdjustListItem()
     If Not IO.File.Exists(FullPathToList) Then Exit Sub
     Dim fi As New IO.FileInfo(FullPathToList)
 
     Dim lwt As Date = fi.LastWriteTime 'neue LastWrite-Zeit
     Dim lvi As ListViewItem = Nothing
     Dim lvi_neu As ListViewItem = Nothing
     Dim fp As String = fi.FullName.ToUpper 'Pfad der geänd. Datei
 
     With ListView1
        For i As Integer = 0 To .Items.Count - 1
           lvi = .Items(i)
           With lvi
              'Überprüfen, ob der volle Pfad der geänderten Datei
              'mit dem gelisteten Pfad des Items identisch ist
              If fp = .SubItems(2).Text.ToUpper Then
                 'neue LW-Zeit eintragen evt. Now.ToString ??
                 .Text = lwt.ToString  
                 .BackColor = Color.Red 'Item markieren
                 .ForeColor = Color.White
                 .Font = New Font(.Font.Name, .Font.Size, FontStyle.Bold)
                 'Item-Kopie (Klon) für das Verschieben erstellen
                 lvi_neu = DirectCast(.Clone, ListViewItem)
                 Exit For
              End If
           End With
        Next i
 
        If lvi_neu IsNot Nothing Then
           'Die alte Item-Version aud Listview entfernen
           .Items.Remove(lvi)
           'Das modifizierte Item muss an den Listen-Anfang           
           .Items.Insert(0, lvi_neu)
        End If
    End With
 End Sub

Private Sub FileStuff_Finished(sender As Object, e As _
  FileSystemStuff.FilesystemStuffArgs) Handles FileStuff.Finished

Private _FileInformationList As New List(Of FileInformation)(500)
Private _FileSystemErrors As New List(Of String)
 
Private Sub Getfiles(ByVal oDir As IO.DirectoryInfo)
   Dim oSubDir As IO.DirectoryInfo
   Dim oFile As IO.FileInfo = Nothing
 
   ' alle Dateien im aktuellen Ordner 
    Try
        For Each oFile In oDir.GetFiles()
           With oFile
              _FileInformationList.Add(New FileInformation(oFile))
              If _FileInformationList.Count Mod 100 = 0 Then
                  RaiseEvent Progress _
                  (Me, New FilesystemStuffArgs(_FileInformationList.Count))
              End If
            End With
         Next oFile
     Catch ex As Exception
         If oFile IsNot Nothing Then
            _FileSystemErrors.Add(oFile.FullName & ": " & ex.Message)
         End If
     End Try
 
     Try
        For Each oSubDir In oDir.GetDirectories()
           Getfiles(oSubDir)
        Next oSubDir
     Catch ex As Exception
        _FileSystemErrors.Add(oDir.FullName & ": " & ex.Message)
     End Try
  End Sub
 
 
  ''' <summary>Abfrage der Angaben zu den Dateien in einem Ordner</summary>
  ''' <param name="folder">Ordner, dessen Dateien gelistet werden sollen</param>
  ''' <param name="so">Unterordner einbeziehen?</param>
  Public Sub CreateFolderFileInfos(ByVal folder As String, _
        Optional so As IO.SearchOption = IO.SearchOption.TopDirectoryOnly)
 
     FileInformationArray = Nothing
     If Not IO.Directory.Exists(folder) Then Exit Sub
 
     Dim odir As New IO.DirectoryInfo(folder)
     Getfiles(odir)
     FileInformationArray = _FileInformationList.ToArray
 
     RaiseEvent Finished _
        (Me, New FilesystemStuffArgs(FileInformationArray.Length))
  End Sub
 
 
  Public ReadOnly Property ErrorMessages As String()
     Get
        Return _FileSystemErrors.ToArray
     End Get
  End Property

 Private Sub FileStuff_Finished(sender As Object, _
      e As FileSystemStuff.FilesystemStuffArgs) Handles FileStuff.Finished
 
     infotext = _
         "Dateien sind gelistet worden " & vbCrLf & "Gesamtzahl: " & _
         e.Count.ToString
 
     Dim errors() As String = FileStuff.ErrorMessages
 
     If errors IsNot Nothing AndAlso errors.Length > 0 Then
        infotext &= (vbNewLine & "Fehler: ")
        For i As Integer = 0 To errors.Length - 1
           infotext &= (vbNewLine & errors(i))
        Next i
     End If
 
     lblinfo.Invoke(New MethodInvoker(AddressOf SetInfoText))
     ListView1.Invoke(New MethodInvoker(AddressOf SetFileList))
 
     If FileStuff.FileInformationArray.Length > 0 Then
        With fsw
           .Filter = "*.*"
 
           .Path = IO.Path.GetDirectoryName(FileStuff.FileInformationArray( _
             0).fullpath)
           .IncludeSubdirectories = True
           .EnableRaisingEvents = True
        End With
     Else
        fsw.EnableRaisingEvents = False
     End If
 End Sub

Public Sub CreateFoldersFileInfos _
    (so As IO.SearchOption, ParamArray folders() As String)
 
    FileInformationArray = Nothing
 
    If folders Is Nothing OrElse folders.Length = 0 Then Exit Sub
 
    For i As Integer = 0 To folders.Length - 1
        If Not IO.Directory.Exists(folders(i)) Then Exit Sub
    Next i
 
    'Alle Ordner nacheinander abfragen
    For i As Integer = 0 To folders.Length - 1
       Dim odir As New IO.DirectoryInfo(folders(i))
       Getfiles(odir)
    Next i
 
    FileInformationArray = _FileInformationList.ToArray
    RaiseEvent Finished(Me, New FilesystemStuffArgs( _
      FileInformationArray.Length))
End Sub

Private Sub CreateFileList()
 
      'Die Ordner (beliebige Anzahl) werden hintereinander als Parameter
      'angegeben ....  
      FileStuff.CreateFoldersFileInfos(IO.SearchOption.AllDirectories, _
        "C:\Daten\abt1", "C:\Daten\abt2", "C:\xxx", ....)
End Sub