Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno VB - viusal studio 2010 vypsání složek

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

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny