Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
Psáno narychlo v sobotu večer, tak to podle toho vypadá, ale funkční by to mohlo být ;-) Imports Sy…
ws79 14.01.2012 21:55
ws79
dobře ty, díky moc ;) šlape to eňoňůňo poslední
xtroff 15.01.2012 12:31
xtroff

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

Zpět do poradny Odpovědět na původní otázku Nahoru