Imports System.IO
Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Private sysIcons As New SystemIconsImageList()
 
    Structure BGWParameter
        Dim Pfad As String
        Dim FolderAndFileCount As Integer
    End Structure
 
    Dim BGW_Parameter As BGWParameter
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
 
        Me.BackgroundWorker1.WorkerReportsProgress = True
        Me.BackgroundWorker1.WorkerSupportsCancellation = True
 
        Me.ListView1.FullRowSelect = True
        Me.ListView1.Columns.Add("Name", 170, HorizontalAlignment.Left)
        Me.ListView1.Columns.Add("Änderungsdatum", 125, _
          HorizontalAlignment.Left)
        Me.ListView1.View = System.Windows.Forms.View.Details
        ListView1.SmallImageList = sysIcons.SmallIconsImageList
        ListView1.LargeImageList = sysIcons.LargeIconsImageList
        BGW_Parameter.Pfad = "C:\"
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button1.Click
        Me.ListView1.Items.Clear()
        BackgroundWorker1.RunWorkerAsync(BGW_Parameter)
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As  _
      System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
        Dim tmpFFI_BGW_Parameter As BGWParameter = DirectCast(e.Argument,  _
          BGWParameter)
        Dim root As New DirectoryInfo(tmpFFI_BGW_Parameter.Pfad)
        Dim dirs As DirectoryInfo() = root.GetDirectories()
        Dim files As FileInfo() = root.GetFiles()
 
        For Each dir As DirectoryInfo In dirs
 
            Dim Item1 As New ListViewItem(dir.Name)
            Item1.SubItems.Add(dir.LastWriteTime.ToString())
            Item1.ImageIndex = sysIcons.GetIconIndex(dir.FullName)
 
            BackgroundWorker1.ReportProgress(0, Item1)
        Next
 
    End Sub
 
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal _
      e As System.ComponentModel.ProgressChangedEventArgs) Handles _
      BackgroundWorker1.ProgressChanged
        Dim dFLV As dFillListView = AddressOf FillListView
        Me.Invoke(dFLV, e.UserState)
    End Sub
 
    Private Delegate Sub dFillListView(ByVal Param As Object)
 
    Private Sub FillListView(ByVal Param As Object)
        Me.ListView1.Items.AddRange(New ListViewItem() {Param})
    End Sub
 
End Class