Prova ad usare questo codice

codice:
        Dim tempDir As New DirectoryInfo(My.Computer.FileSystem.SpecialDirectories.MyDocuments)
        Try
            Dim allFiles As FileInfo() = Nothing
            For Each Directory In tempDir.GetDirectories()
                Try
                    If (Directory.Attributes <> FileAttributes.System) Then
                        allFiles = Directory.GetFiles("*.bmp", SearchOption.AllDirectories)
                    End If
                    For Each oFile As FileInfo In allFiles
                        ListBox1.Items.Add(oFile.FullName())
                    Next
                Catch ex As Exception

                End Try
                Application.DoEvents()
            Next
        Catch ex As UnauthorizedAccessException

        End Try