Imports System.io
Module Module1
    Sub Search(ByVal l As ListBox)
        Dim drives() As String = Environment.GetLogicalDrives
        For a As Integer = 0 To drives.Length - 1
            DirSearch(drives(a).ToString, l)
        Next
    End Sub
    Sub DirSearch(ByVal sDir As String, ByVal l As ListBox)
        Dim d, f As String
        Dim sec As Integer
        Dim file As File
        Dim createTime As String
        Dim attributes As FileAttributes
        On Error Resume Next ' wegen "System Volume Information"
        For Each d In Directory.GetDirectories(sDir)
            For Each f In Directory.GetFiles(d)
                l.Items.Add(f)
                Application.DoEvents()
                attributes = file.GetAttributes(f)
                createTime = file.GetCreationTime(f)
                Dim ext As New FileInfo(f)
                Dim fileExt As String = ext.Extension
                f = Replace(f, "\", "\\")
                f = Replace(f, "'", ".")
            Next
            DirSearch(d, l)
        Next
    End Sub
End Module

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Module1.Search(Me.ListBox1)
    End Sub