VB - viusal studio 2010 vypsání složek

Co třeba první odkaz z Google?
http://www.vbexplorer.com/VBExplorer/tips/src07.ht m

a jestli tu můžu mít ještě jeden dotaz, tohle to mě vedlo kvůli tomu, že když jsem vypisoval soubory např. typu "txt", tak nastal problém s oprávněním do určitých složek, takže bych potřeboval zjistit, jak pokračovat do dalších složek tak jako by tuto chybu ten program ignoroval.

Jaké oprávnění? Do jakých složek? Používáš omezený uživatelský účet?

ne jsem na svym počítači adminem, jedná se o systémové složky jako například: Config.Msi, Recyclebin, erdata,...

A z těch složek něco vypisuješ?

sorry, takhle:
For Each findimages As String In My.Computer.FileSystem.GetFiles(ListBox1.SelectedI tem, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")

next

jo ještě něco k tomu odkazu, když jsem to zkusil tak se ten listbox roztahoval, ale byl prázdnej, tak jestli to je tim, že to třeba nedojelo dokonce nebo jetli někdo znáte odpověď...

Psáno narychlo v sobotu večer, tak to podle toho vypadá, ale funkční by to mohlo být

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim drive As New DirectoryInfo("d:")

        Try
            For Each dir As DirectoryInfo In drive.GetDirectories
                Dim directories As New DirectoryInfo(dir.FullName)

                ListBox1.Items.Add(dir.Name)
                ListBox1.Refresh()
                Try
                    For Each subdir2 As DirectoryInfo In directories.GetDirectories
                        ListBox1.Items.Add(subdir2.Name)
                        ListBox1.Refresh()
                        Slozky(subdir2.FullName)
                    Next
                Catch ex As Exception

                End Try
            Next
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Slozky(ByVal slozka As String)
        Dim directory As New DirectoryInfo(slozka)
        For Each dir As DirectoryInfo In directory.GetDirectories
            Dim directories As New DirectoryInfo(dir.FullName)

            ListBox1.Items.Add(dir.Name)
            ListBox1.Refresh()
            Try
                For Each subdir2 As DirectoryInfo In directories.GetDirectories
                    ListBox1.Items.Add(subdir2.Name)
                    ListBox1.Refresh()
                    Slozky(subdir2.FullName)
                Next
            Catch ex As Exception

            End Try
        Next
    End Sub
End Class

dobře ty, díky moc ;) šlape to eňoňůňo