[VB NET] File Explorer

[nuke76]

Imports System.IO


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each di As DriveInfo In DriveInfo.GetDrives()
            driveList.Items.Add(di)
        Next
    End Sub

    Private Sub driveList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles driveList.SelectedIndexChanged
        folderList.Items.Clear()

        Try
            Dim drive As DriveInfo = DirectCast(driveList.SelectedItem, DriveInfo)
            For Each dirInfo As DirectoryInfo In drive.RootDirectory.GetDirectories()
                folderList.Items.Add(dirInfo)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub folderList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles folderList.SelectedIndexChanged
        fileList.Items.Clear()
        Dim dir As DirectoryInfo = DirectCast(folderList.SelectedItem, DirectoryInfo)
        For Each fi As FileInfo In dir.GetFiles()
            fileList.Items.Add(fi)
        Next

    End Sub
End Class

Ok il concetto l'ho capito... ma se nella listbox ora volessi espandere le varie sottocartelle?

Mi basta anche un link a qualke altro progetto o riferimento. Una volta instradato me la sbrigo io.

[oregon]

Ok il concetto l'ho capito

Ma di che parli?

[nuke76]

Come al solito sono troppo conciso e non faccio capire nulla.

In poche parole sono riuscito a fare questo file explorer, c'è un unica pecca, quando clicco su una cartella mi fa vedere si i file che son li dentro ma se ci sono sotto cartelle non me le fa vedere, diciamo la classica struttura ad albero insomma, non riesco a farla.